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SUMMARY 

A batch  procaas  digital  coaputar  program  has  been  developed  which 
can  simulate  the  take-off  and  landing  of  VSTOL  aircraft  aboard  ship. 

The  program  consists  of  a group  of  basic  subroutines  applicable  to  any 
aircraft  and  a set  of  specific  aircraft  model  subroutines  which  have 
been  configured  to  represent  the  AV8A  Harrier.  The  aircraft  model 
includes  nonlinear  aerodynamics,  engine  and  reaction  control  response, 
stability  augmentation  and  actuator  dynamics,  and  a simplified  landing 
gear  model . 

Ship  dynamics  are  modeled  as  six  degree  of  freedom  sinusoidal  motion. 

The  ship  Is  assusMd  to  have  a fixed  mean  position  about  which  it  oscillates. 
Wind  over  the  deck  is  composed  of  a steady  induced  wind  equal  to  the 
ship  speed  plus  a separate  North  and  East  component  of  natural  wind 
which  can  be  Independently  specified.  At  present  no  turbulence  model 
specifically  designed  for  VSTOL  aircraft  exists,  but  a model  developed 
for  conventional  carriers  is  Incorporated.  This  subroutine  calculates 
free  air  turbulence  as  well  as  ship  wake  turbulence  which  may  be  varied 
in  amplitude.  The  wake  intensity  is  calculated  as  a function  of  range, 
altitude,  and  lateral  position  relative  to  the  flight  deck. 

A pilot  model  subroutine  provides  both  open  loop  and  closed  loop 
control  inputs.  Thus  far, the  pilot  modal  has  been  used  only  to  investigate 
aircraft  response,  and, hence, it  has  not  been  constructed  to  accurately 
represent  true  pilot  dynamics.  The  pilot  model  can  now  execute  a short 
take-off  and  climb  to  specified  altitude,  and  a side  step  from  hover  to 
a vertical  landing  using  closed  loop  control  as  well  as  step,  doublet, 
pulse,  and  sinusoidal  Inputs  to  each  control. 

Three  data  output  options  are  provided.  These  consist  of  a printout 
of  specified  variables  versus  time,  a statistical  summary,  and  a Calcomp 
plot  of  a maximum  of  14  variables  versus  tisw. 
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INTRODUCTION 

The  anticipated  deployment  of  VSTOL  aircraft  aboard  small  escort 
vessels  necessitates  the  development  of  methods  for  analytically  predicting 
the  performance  and  handling  characteristics  of  these  aircraft  In  this 
relatively  undefined  environment.  A thorough  analysis  of  landing  and 
take-off  dynamics  should  Include  all  of  the  components  involved  both  as 
individual  elements  and  as  a total  interactive  system. 

As  a minimum, the  following  elements  should  be  considered : 

Aircraft  aerodynamics 

Engine  and  reaction  control  dynamics 

Stability  augmentation  and  control  system 

Landing  gear,  catapult,  and  arresting  gear.  If  used 

Ship  motion 

Atmospheric  turbulence 
Ship  Induced  turbulence 

Aircraft /Engine  airflow  Interaction  with  the  ship 
Pilot  dynamics 

Pilot  visual  displays  and  landing  aids 

Landing  signal  officer  Influence  on  pilot  performance. 

The  method  of  approaching  this  problem  was  to  develop  a digital 
simulation  program  which  Incorporated  as  many  of  the  system  elements 
as  possible  in  separate  subroutines  which  could  be  changed  easily.  In 
addition, most  system  parameters  have  been  placed  In  common  arrays  so 
chat  these  values  may  be  changed  without  recompiling  the  subroutines. 

The  program  Is  divided  Into  a group  of  basic  routines  which  are 
Independent  of  aircraft  configuration.  These  basic  routines  handle  trim 
Initialization,  coordinate  transformations,  the  Integration  of  differential 
equations,  and  the  Interpolation  of  tabulated  nonlinear  functions.  Control 
Inputs,  forces  and  momenta,  and  disturbance  inputs  are  determined  by 
user  supplied  routines  which  must  be  varied  to  represent  specific  aircraft 
types  and  atmospheric  conditions. 

Each  of  the  VSTOL  system  elements  Is  complicated  and  Important  enough 
to  justify  a large  effort  to  investigate  its  Impact.  However,  due  to  the 
limits  of  time,  a decision  was  made  to  develop  a simple  description  of 
all  of  the  elements  rather  chan  concentrating  the  effort  on  one  or  two 
' areas.  This  made  it  possible  to  develop  an  overall  frame  work  to  which 

more  sophisticated  and  accurate  model  formulations  may  be  added  as  they 
become  available.  The  basic  subroutines  were  adapted  from  a simulation 
program  used  at  the  NASA  Ames  Research  Center  to  perform  moving  base 
* reel  time  simulations.  The  user  routines  were  configured  to  represent 

the  AV8A  Harrier  using  the  bast  data  currently  available. 

At  the  present  time, the  model  addresses  the  first  nine  of  the  eleven 
model  components  described  above.  No  model  description  of  the  LSO  or 
the  pilot  landing  aids  Is  presently  Incorporated  because  It  would  be  very 
difficult  to  develop  meaningful  models  of  these  two  components.  A piloted 
, aircraft  simulation  with  a high  resolution  wide  field  visual  display  is 

probably  the  only  way  other  than  flight  testing  to  thoroughly  evaluate 
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Che  LSO  task  and  Che  ef fecdveness  of  various  piloC  displays  and  landing 
aids.  A dual  simulation  including  boch  Che  piloC  and  che  LSO  would 
probably  be  Che  ideal  approach. 

The  aircraft  model  includes  an  aerodynamics  subroutine  which  determines 
the  three  force  and  three  moment  coefficients  by  interpolating  tabulated 
values  of  aerodynamic  functions.  A separate  subroutine  is  used  to 
represent  the  Pegasus  11  engine  operating  at  low  altitude  and  Mach 
number.  Engine  RPM,  nozzle  angle,  and  reaction  control  thrust  dynamics 
are  Included  in  the  equations. 

A simplified  model  of  the  landing  gear  including  vertical  force, 
braking  force,  and  pitching  moment  is  also  incorporated. 


GENERAL  PROGRAM  DESCRIPTION 

The  VSTOL  simulation  program  currently  consists  of  a main  program, 

31  subroutines,  and  a data  input  deck.  These  subroutines  are  functionally 
divided  into  four  groups  as  follows: 

Trim  Routines 
Setup 
Bsetup 
Bquiet 
Mlnv 

Basic  Equation  Calculations 
Loop2 
Loop  3 
Bveloc 
Btrans 
Brotate 
Balfbet 
Batmos 
Lookup 
TAB1 
ARDC62 
RAND 

User  Supplied  Model  Structure 
Pilot 
Engine 
Aero2 
ContF.2 
Gears 
WINDC 
Ship 
Deck 

Data  Input /Output 
DatSav 
DPlot 
Tlmehls 
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Show 
Printo 
Tabrd 
BICPRI 
Block  Data 

System  routines  are  used  to  generate  a CALCOMP  plotting  tape,  and  to 
invert  the  state  matrix  during  the  trim  sequence. 


SUBROUTINE  DESCRIPTION 

MAIN  PROGRAM 

The  main  program  controls  input  and  output  of  data  and  the  calling 
sequence  of  the  basic  and  user  subroutines.  A series  of  runs  may  be 
made  to  investigate  various  configurations  with  changes  between  each 
run.  Also,  multiple  runs  with  a fixed  configuration  may  be  made  to 
evaluate  the  statistical  response  to  turbulence  or  other  external  distur- 
bances. 

The  main  program  loads  all  function  tables  by  calling  subroutine 
TABRD.  This  subroutine  loads  all  nonlinear  function  tables  required  by 
the  simulation  from  data  cards  contained  in  the  load  deck  each  time  the 
program  is  run.  These  tables  Include  aerodynamics,  thrust  functions, 
control  gearing,  landing  gear  forces,  and  turbulence  functions. 

After  all  parameters  are  specified  for  a given  run,  a trim  calculation 
is  performed  which  adjusts  specified  control  parameters  until  all  forces 
and  moments  are  balanced.  This  is  achieved  by  cycling  through  subroutine 
setup.  When  the  trim  criteria  is  satisfied,  the  switch  parameter 
ITPROG  is  set  to  0.  This  causes  the  trim  process  to  terminate  and  calls 
subroutine  BICPRI  which  prints  the  Initial  values  of  all  aircraft  states 
and  control  positions.  The  program  currently  performs  all  calculations 
in  English  units  and  converts  them  to  metric  units  for  the  trim  printout. 
Inputs  are  specified  in  English  units. 

The  dynamic  portion  of  the  program  next  calculates  the  aircraft  time 
response  to  specified  control  Inputs  by  cycling  through  the  two  major 
subroutines  LOOP 2 and  L00P3.  The  run  is  terminated  when  the  running 
variable  time  exceeds  the  specified  maximum  routine  variable  RTIME.  If 
a landing  approach  Is  simulated,  the  run  will  be  terminated  when  the 
landing  gears  touch  the  deck  or  runway  provided  parameter  JLAND  is  set 
to  1 before  the  run  and  ISTAT  » 1. 

Data  output  is  provided  by  selecting  values  for  paraswters  ITHiS, 
IUPL0T,  and  ISTAT.  ITHIS  • 1 provides  a time  history  printout.  IUPL0T  • 1 
causes  a CALCOMP  plot  tape  to  be  loaded,  and  ISTAT  - 1 provides  a 
statistical  summary  of  each  run  as  well  as  consecutive  run  landing 
statistics. 

Print  varlablss  may  be  changed  from  run  to  rur.  by  specifying  IREAD1 
■ 1.  Plot  variables  ars  changed  by  setting  IREAD2  - 1.  These  flags 
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cause  new  values  of  arrays  IPRINT(I)  and  IPLOT(I)  to  be  read.  Each 
number  In  these  Integer  arrays  specifies  one  variable  to  be  plotted  or 
printed  as  well  as  selecting  either  English  or  metric  units  for  the 
output. 

PILOT 


Subroutine  PILOT  is  designed  to  provide  control  Inputs  representative 
of  pilot  action.  A variety  of  control  strategies  are  currently  included 
which  may  be  selected  by  choosing  values  of  variables  ITASK,  NCHK,  and 
MCHK.  The  current  control  laws  were  established  with  the  intention  of 
achieving  a stable  rapid  response  rather  than  accurately  simulating  true 
pilot  capabilities  and  dynamics.  The  following  control  strategies  are 
currently  programmed: 


ITASK  - 1 

ITASK  - 2 


ITASK  - 3 

ITASK  - 4 


Release  brake,  begin  takeoff  roll,  retard  throttle  and 
brake  to  a stop. 

Execute  a rolling  vertical  takeoff,  transition  to  wing 
borne  flight,  climb  to  a specified  altitude,  level  off, 
and  hold  altitude. 

Execute  a side  step  and  vertical  landing  starting  from 
a hover  relative  to  the  landing  point. 

Move  the  throttle  einuaoldally  about  a hover  trim 
condition. 


ITASK  - 5 


Open  loop  control  Inputs  as  specified  by  variables  MCHK 
and  MCHK. 


MCHK  - 1 
MCHK  - 2 
MCHK  - 3 
MCHK  - 4 
MCHK  - 5 


Throttle  input 
Longitudinal  stick  input 
Lateral  stick  input 
Nozzle  angle  input 
Rudder  input 


NCHK  • 0 
NCHK  - 1 
NCHK  - 2 
NCHK  - 3 
NCHK  « 4 


No  input 
Step  Input 
Pulse  input 
Doublet  input 
Sinusoidal  Input 


Subroutine  PILOT  provides  lateral  and  longitudinal  stick  Inputs,  rudder 
pedal,  throttle,  nozzle  commands,  plus  discrete  brake  application  and 
water  Injection  commands.  In  addition  to  the  described  options,  the 
longitudinal  stick  may  be  matched  to  flight  measured  values  of  elevator 
position.  If  parameter  I2D0F  • 1,  the  stick  position  is  calculated  by 
first  subtracting  the  calculated  value  of  elevator  due  to  pitch  SAS 
from  the  tabulated  value  of  total  elevator  versus  time.  The  stick 
position  is  then  determined  by  interpolating  tabulated  values  of  stick 
versus  elevator  position. 
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BLOCK  DATA 

Block  data  la  uaad  to  initialize  paraaeters  located  In  common  arrays. 
CONTR2 

C0NTR2  calculates  aileron,  elevator,  and  rudder  position  cotsaands 
based  on  pilot  inputs.  It  also  simulates  the  operation  of  the  stability 
augmentation  system  (SAS)  and  the  elevator  and  aileron  power  actuators. 

The  pitch  SAS  is  driven  by  a pitch  rate  signal  modified  by  a gain  and  a 
lead-lag  network.  This  command  drives  the  stabilizer  and  the  rear  pitch 
Jet.  The  SAS  operation  is  nonlinear  at  low  speeds  because  the  front  pitch 
jet  is  not  connected  to  the  stabilization  system,  and  the  SAS  cannot 
generate  nose  up  moments  in  hover.  Roll  damping  is  improved  by  driving 
the  ailerons  and  roll  reaction  jets  with  a filtered  roll  rate  signal.  The 
lateral  dynamics  are  augmented  by  driving  the  yaw  reaction  jet  with  yaw 
rate  and  lateral  acceleration.  All  three  SAS  channels  include  position 
comaand  limits.  In  addition  to  direct  control  llnka,  there  is  an  inter- 
connect from  the  aileron  to  the  yaw  reaction  jet  which  counteracts  adverse 
yaw  characteristics.  The  three  channels  of  the  stability  augmentation 
system  may  be  individually  disconnected  by  setting  variables  IQDAMP,  IPDAMP, 
or  IRDAMP  to  zero.  These  correspond  to  the  pitch,  roll,  and  yaw  dampers, 
respectively.  Figure  1 illustrates  the  SAS. 

A special  2 degree  of  freedom  mode  may  be  selected  for  use  in  comparing 
flight  data  with  simulated  data.  When  parameter  I2DOF  is  set  to  1,  the 
elevator  follows  a tabulated  function  of  time  rather  than  the  value 
dynamically  computed  by  the  computer. 

GEARS 

Subroutine  GEARS  provides  a simplified  model  of  the  landing  gear 
longitudinal  forces  and  the  pitching  moment.  The  model  assumes  that 
all  gear  forces  are  produced  by  the  nose  and  main  gears.  The  compression 
of  each  landing  gear  element  is  calculated  as  being  equal  to  the  difference 
between  the  undeflected  gear  height  and  the  height  of  the  deck  directly 
beneath  each  wheel.  Force  la  assusMd  to  act  normal  to  the  deck  with  a 
magnitude  determined  as  a tabulated  function  of  compression.  An  additional 
force  term  is  added  which  is  proportional  to  the  rate  of  compression  of 
each  strut.  This  term  was  sized  to  provide  a reasonably  well  damped 
response,  but  is  not  based  on  measured  data.  Pitching  aosMnt  is  calculated 
by  multiplying  the  nose  and  main  gear  normal  force  and  friction  force  by 
their  respective  moment  arms. 

Axial  force  is  assumed  to  be  proportional  to  the  normal  force  and 
acts  in  a direction  opposite  to  the  relative  velocity  or  tendency  toward 
motion  between  the  deck  and  the  aircraft.  Based  on  experimental  data, 
the  rolling  rrlctlon  coefficient  is  assigned  a value  of  .03  for  free 
rolling  and  .6  with  brakes  applied.  All  forces  are  generated  in  deck 
axes  and  are  then  transformed  into  body  axes.  Body  axis  Z force  is 
limited  to  acting  in  an  upward  or  negative  Z direction.  The  gear  model  is 
illustrated  in  Figure  2. 
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No  roll  or  yaw  moment  or  side  force  is  currently  included  in  the 
landing  gear  equations.  However,  a clamp  is  placed  on  the  roll  angle  and 
roll  rate  when  both  the  left  and  right  wing  gears  are  in  contact  with  the 
deck.  The  aircraft  bank  angle  is  set  equal  to  the  deck  tilt  angle  as 
measured  along  the  aircraft  Y axis.  An  additional  clamping  function  is 
added  to  attitude  and  pitch  rate  when  the  main  and  nose  gear  are  fully 
compressed.  Finally, a flag  is  set  when  the  gear  deflection  exceeds  the 
maximum  value.  This  flag  may  be  used  to  terminate  the  program.  This  is 
indicated  in  the  program  by  the  statement  ICRASH  ■ 1. 

AER02 

Subroutine  AER02  calculates  aerodynamic  lift,  drag,  side  force, 
roll,  pitch,  and  yawing  moment.  The  longitudinal  non-dimensional  coefficients 
are  determined  from  tabulated  functions  of  angle  of  attack,  stabilizer, 
engine  nozzle  angle,  and  the  ratio  of  jet  velocity  to  airspeed.  The 
tabulated  values  are  limited  to  an  angle  of  attack  range  from  -5  to  +20 
degrees,  and  the  jet  velocity  ratio  is  limited  to  a range  from  5.4  to  11.9. 
This  corresponds  to  a velocity  range  from  30  to  65  m/sec.  As  a result, 
the  aerodynamic  forces  at  very  low  speeds  and  at  large  angles  of  attack 
may  not  be  accurate.  Also, no  correction  is  made  to  the  longitudinal 
coefficients  for  the  effect  of  sideslip.  Theoretically, the  wing  lift 
should  be  reduced  at  large  sides lp  angles.  However,  no  data  is  available 
for  large  values  of  sideslip  so  no  correction  for  sideslip  is  Included. 

A constant  value  for  the  pitch  damping  coefficient  was  assumed.  Corrections 
for  wing  stores  may  be  added  by  setting  flags  IST0R1  and  IST0R2  ■ 1. 

IST0R1  corresponds  to  Inboard  wing  tanks  and  ISTOR2  corresponds  to 
outboard  stores. 

Lateral  force,  roll,  and  yawing  moment  coefficients  are  calculated 
from  tabulated  functions  of  sideslip,  angle  of  attack,  engine  nozzle 
angle,  and  jet  velocity  ratio.  Aileron  and  rudder  effectiveness  are 
assumed  constant.  All  aerodynamic  data  were  derived  from  reference  (a). 

ENGINE 

Subroutine  ENGINE  simulates  the  dynamic  response  of  the  Pegasus  11 
engine  and  reaction  control  system  including  RPM  and  nozzle  angle  response 
to  pilot  coasaands.  (See  Figures  3-5.) 

The  model  calculates  engine  gross  thrust,  ram  drag,  pitch  and  yaw 
moment  and  side  force  due  to  inlet  momentum  as  well  as  reaction  control 
forces  and  moments.  As  currently  configured,  the  model  is  Intended  for 
use  only  at  low  speeds  and  low  altitude.  Thrust  is  varied  with  air 
density,  but  ram  drag  is  tabulated  only  up  to  .3  Mach.  The  reaction  jet 
thrust  computation  accounts  for  the  effects  of  temperature,  air  density, 

RPM,  and  control  position.  Mass  flow  limits,  duct  losses,  and  non- 
linear RCS  nozzle  thrust  to  area  effects  are  Included. 

Front  and  rear  main  nozzle  static  thrust  are  determined  from  tabulated 
functions  of  RPM  and  reaction  control  mass  flow.  Total  gross  thrust  is 
determined  by  adding  an  Increment  to  the  static  thrust  Which  depends  on 
RPM  and  Mach  number.  Ram  drag  is  calculated  as  a function  of  RPM  and 
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Mach  number.  In  all  cases,  engine  characteristics  at  low  RPM  were  extrapolated 
from  data  available  at  an  RPM  of  85  percent  or  higher.  Lateral  and 
longitudinal  orientation  of  each  lift  and  control  nozzle  is  accounted 
for  and  the  total  forces  and  moments  are  summed  in  body  axes. 


Fuel  and  water  consumption  is  included  and  RPM  is  limited  to  102 
percent  when  water  injection  is  not  operating  or  the  nozzles  are  not 
rotated  to  at  least  10  degrees. 


A simple  model  of  suckdown  effect  is  also  included.  A maximum 
thrust  loss  of  6 percent  is  assumed  when  the  landing  gears  touch  the 
deck.  This  decreases  to  zero  when  the  landing  gears  are  7 meters  above 
the  deck.  Only  vertical  force  loss  is  assumed  with  no  pitch  or  roll 
ground  effects  included.  Data  for  the  engine  model  were  derived  from 
references  (b),  (c)  and  (e). 


In  addition  to  absolute  RPM  limits  a simple  model  of  the  jet  pipe 
temperature  trim  back  is  included.  Two  counters  operate  when  the  RPM 
exceeds  104  and  102  percent, respectively.  When  the  count  exceeds 
specified  values,  the  commanded  RPM  is  reduced  first  to  104  percent  and 
then  to  102  percent.  The  trim  back  characteristics  were  adjusted  to 
match  flight  test  data  taken  for  short  take  off  operations. 

The  engine  dynamic  response  to  throttle  changes  is  modeled  as  a 
first  order  lag  response  in  RPM.  The  engine  time  constant  is  varied 
with  RPM.  Additional  limits  are  placed  on  the  maximum  rate  of  increase 
in  RPM.  These  parameters  were  adjusted  to  match  flight  test  RPM  response. 

Nozzle  angle  response  to  nozzle  command  is  modeled  as  a rate  limited 
drive  of  ±150  deg/sec.  This  model  was  suggested  from  response  data 
shown  in  reference  (b). 

SETUP 


Subroutine  SETUP  is  called  by  the  main  program  and  controls  the  trim 
sequence.  It  calls  subroutines  BSETUP,  L00P2,  L00P3,  and  BQUIET  which 
calculate  the  aircraft  state.  The  total  wind  is  determined  from  ship 
speed  and  heading  and  the  north  and  east  component  of  natural  wind . 

This, taken  with  a specified  initial  sideslip  and  air speed, permit  the 
calculation  of  the  inlwl^x  aircraft  heading. 


Four  trim  options  are  provided  by  specifying  pari 
values  1 through  4.  These  function  aa  follows: 


ter  index  at 


Index 


Trim  Function 


Ground  trim,  vary  altitude  and  pitch  attitude. 

Hover  trim,  vary  longitudinal  stick,  lateral 
stick,  throttle,  pitch  attitude,  rudder,  and 
bank  angle. 
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3 Transition  flight  - vary  longitudinal  stick, 
throttle,  lateral  stick,  nozzle  angle,  rudder, 
and  bank  angle. 

4 Conventional  flight  - vary  longitudinal  stick, 
airspeed,  lateral  stick,  throttle,  rudder,  and 
sideslip. 

DATSAV 

Subroutine  DATSAV  loads  an  array  with  values  of  14  variables  in 
either  English  or  aetrlc  units  plus  the  value  of  tine  in  seconds.  The 
14  variables  and  the  units  of  the  variable  are  determined  by  integer 
array  IPLOT.  Each  value  of  IPLOT  specifies  the  conversion  factor,  the 
array,  and  the  array  element  to  be  plotted.  The  3 right  digits  of  the 
value  of  IPLOT (I)  specifies  the  array  element  to  the  plotted.  These 
range  from  1 to  200  for  the  B array  and  1 to  500  for  the  A array.  The 
fourth  digit  from  the  right  specifies  the  array  with  1 ■ A and  2 - B. 
The  left  two  digits  specify  the  conversion  factor  required  to  convert 
from  English  units  to  plotting  units  which  may  be  either  English  or 
metric.  The  last  two  digits  may  range  from  01  to  12  as  follows: 

Digit  Value  Conversion  Factor 


01 

1 

nondlmsnslonal  or  English  print 

02 

4.4418 

LBF  to  Newton 

03 

.45359 

LBM  to  kilogram 

04 

14.5919 

Slugs  to  kilograms 

05 

.3048 

Feet  to  meters 

06 

.092903 

Feet2  to  meter2 

07 

.0283168 

Feet2  to  meter2 

08 

515.3089 

Slug/feet2  to  kilogram/meter2 

09 

47.8115 

Pound/feet2  to  newton/meter2 

10 

1.3538 

Slug- foot 2 to  kilogram-meter 2 

11 

6.4516  inch2 

to  centimeter2 

12 

2.54 

inch  to  centimeters 

In  addition  to  storing  the  plot  variables  in  appropriate  dimensional 
form,  DATSAV  also  determines  the  maximum  and  minimum  value  of  each  plot 
variable.  These  values  are  stored  in  the  array  PSCALE  which  may  be  used 
to  automatically  scale  the  plots. 

PRINTO 

Subroutine  PRINTO  provides  a statistical  summary  giving  minimum, 
maximum,  RMS.  and  average  values  of  selected  variables  specified  in 
subroutine  SHOW.  In  addition  touchdown  and  deck  edge  crossing  points 
are  recorded,  and  a statistical  sumary  of  the  touchdown  data  is  provided 
for  multiple  runs. 
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SHOW 


Subroutine  SHOW, which  is  called  by  LOOP2  when  ISTAT  - 1, collects 
data  on  17  parameters  selected  by  the  user.  . The  maximum,  minimum, 
average,  and  RMS  value  of  each  parameter  is  calculated  at  each  program 
iteration. 

Data  gathering  is  divided  into  3 segments  depending  on  airspeed  and 
nozzle  angle.  Airspeeds  less  than  30  meter/second  with  nozzle  angles 
greater  than  60  degrees  and  wheels  off  the  ground  designate  a hover 
condition.  Airspeeds  greater  than  30  meter/second  with  nozzle  angles 
greater  than  20  degrees  and  wheels  off  the  ground  designate  a transition 
condition.  Airspeed  greater  than  30  meter/second  with  nozzle  angles 
less  than  20  degrees  designate  conventional  flight.  In  addition  to  the 
data  averaging,  discrete  data  points  are  stored  when  the  aircraft  crosses 
the  deck  edge  and  when  the  wheels  touch  the  deck. 

DPL0T 

Subroutine  DPLOT  loads  a Calcomp  magnetic  tape  which  will  produce 
plots  having  a format  identical  to  that  of  an  8 channel  brush  recorder 
plot.  This  permits  the  direct  overlay  of  simulation  plots  and  flight 
test  plots.  The  variable  magnitude  is  plotted  along  the  Y axis,  and 
time  is  plotted  along  the  X axis.  Plot  time  scale  is  specified  by 
variable  CHTSP.  The  ordinate  scale  is  specified  by  the  array  scale 
wnlch  determines  the  maximum  and  minimum  value  of  each  of  the  14  plots. 
The  overall  size  of  the  plots  is  proportional  to  the  value  of  variable 
FAC.  The  standard  value  is  1.0  for  matching  brush  records.  If  variable 
ISCALE  ■ 1,  the  present  scale  factors  are  ignored  and  the  plots  are 
scaled  on  the  basis  of  the  maximum  and  minimum  values  encountered  during 
the  run.  Plot  abscissa  titles  are  varied  automatically  when  the  plot 
variables  are  selected.  The  plot  titles  are  loaded  in  block  data  for 
all  variables  stored  in  the  A and  B areas. 

TIMEHIS 

Subroutine  TIMEHIS, which  is  called  by  AV8A2, prints  11  selected 
variables  plus  the  value  of  time  at  specified  time  Intervals.  The  time 
interval  is  determined  in  the  main  program  by  variable  DTIM2.  The 
variables  and  the  choice  of  English  or  metric  units  are  specified  by 
array  IPRNT(ll)  in  the  same  way  that  the  plot  variables  are  specified  by 
IPLOT(I) . Both  IPLOT(IA)  and  IPRNT(ll)  may  be  updated  from  run  to  run 
as  specified  in  the  main  program. 

WINDC 

WINDC  provides  a model  of  free  air  turbulence  and  ship  air  wake. 

The  model  was  developed  for  conventional  carrier  landing  analysis.  As 
such, it  is  not  specifically  representative  of  the  air  wake  environment 
around  a small  platform  ship.  However,  the  inputs  provide  a qualitative 
indication  of  gust  response.  It  is  planned  to  modify  this  subroutine  as 
soon  as  wind  tunnel  results  of  ship  model  tests  become  available. 

Random  turbulence  is  simulated  by  filtering  the  output  of  a Gaussian 
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random  number  generator  in  order  to  shape  the  frequency  content  of  the 
simulated  turbulence.  Five  distinct  random  turbulence  components  are 
generated.  Three  represent  the  orthogonal  components  of  free  air  turbulence 
which  are  assumed  to  have  constant  statistical  properties.  Two  components 
ere  used  to  represent  the  vertical  and  horlsontal  random  components  of 
the  ship  wake.  The  random  burble  varies  in  magnitude  and  frequency  with 
range  to  the  ship. 

In  addition  to  the  linear  filtering  network,  the  random  number 
sequences  are  multiplied  by  a unit  magnitude  sine  wave.  This  has  the 
effect  of  shifting  the  center  frequency  of  the  random  number  sequence  by 
an  amount  +W  where  W Is  the  frequency  of  the  sine  wave.  The  value  of  W 
may  be  selected  to  match  simulated  turbulence  with  measured  turbulence 
spectra. 

The  linear  filter  used  to  shape  the  signals  cuts  off  the  high  frequency 
components  of  the  random  number  generator  spectrum.  Filter  coefficients 
are  calculated  as  functions  of  trim  airspeed  and  integration  step  size. 

An  increase  in  airspeed  results  in  an  increase  in  the  frequency  of  the 
turbulence.  Because  of  the  formulation,  the  turbulence  magnitude  approaches 
zero  as  the  airspeed  is  reduced.  Therefore,  a minimum  value  of  20 
meters  per  second  is  specified  in  order  to  provide  disturbances  at  low 
airspeed.  This  is  a somewhat  arbitrary  fix,  and  its  accuracy  is  unverified. 
The  minimum  value  was  selected  as  a representative  wind  overdeck. 

The  U end  W components  of  the  free  air  turbulence  are  each  processed 
through  a first  order  filter.  The  V gust  component  is  filtered  through 
a second  order  filter.  These  filters  are  Intended  to  duplicate  the  gust 
spectrum  specified  in  MIL  SPEC  AR-40.  Although  the  free  air  turbulence 
is  calculated  in  body  axis  components.  It  is  assumed  to  be  Independent 
of  aircraft  position  and  orientation. 

The  ship  wake  portion  of  the  turbulence,  however.  Is  a function  of 
ship  speed,  ship  pitch,  aircraft  position  relative  to  the  ship,  and 
aircraft  attitude.  The  wake  intensity  is  somewhat  arbitrarily  assumed 
to  decrease  exponentially  as  the  aircraft  moves  laft  or  right  of  the 
extended  ship  center  line.  No  provision  is  made  for  the  expanded  wake 
that  occurs  when  the  ship  Is  yawed  with  respect  to  the  relative  wind. 

In  addition  to  lateral  limits  on  the  wake,  the  wake  is  assumed  to  vanish 
above  a specified  altitude  which  Increases  with  range  behind  the  ship. 

Within  the  altitude  and  lateral  bounds,  the  steady  and  random  components 
of  the  wake  vary  with  range.  The  burble  is  composed  of  seven  components. 
They  are  as  follows: 

UBSS  Steady  U velocity  degradation 

WBSS  Steady  W velocity  upwash/downwash 

UBl  U velocity  due  to  deck  pitching  velocity 

WB1  W velocity  due  to  deck  pitching  velocity 

UB2  Random  U burble  velocity 
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V 

I 


WB2  Random  U burble  velocity 

i ; 

VYBR  Random  lateral  burble  velocity 

UBSS  and  WBSS  are  functions  of  range  and  wind  over  the  deck.  The  deck 
motion  induced  wake  components  UB1  and  WB1  are  functions  of  closing 
speed,  ship  pitch  and  range  behind  the  stern.  The  random  components  of 
L-  the  burble  UB2  and  VB2  are  functions  of  range  to  touch  down  and  ship 

speed.  VYBR .the  lateral  component  of  the  burble,  Is  assumed  equal  to  the 
vertical  component  WB2.  Burble  components  are  computed  in  ship  axes, 
first  converted  to  north,  east,  down  inertial  axes,  and  are  then  transformed 
into  aircraft  body  axes.  The  three  burble  components  are  then  summed 
with  the  free  air  turbulence  components  to  form  a total  turbulence 
velocity  vector. 

Various  turbulence  options  may  be  selected  by  setting  appropriate 
switches.  Any  one  of  ten  random  sequences- may  be  repeated  by  setting 
variable  IONCE  equal  to  values  from  one  to  ten.  If  IONCE  ■ 0,  the  random 
sequence  will  continue  from  one  run  to  the  next.  . In  this  way, various 
airplane  configurations  may  be  subjected  to  identical  turbulence  conditions, 
or  a particular  configuration  may  be  repeated  and  subjected  to  non* 
repetitive  turbulence  in  order  to  determine  the  statistical  characteristics 
of  the  response  of  a fixed  aircraft/pilot  configuration.  The  burble 
characteristics  may  be  held  constant  by  setting  IBFRZ  - 1.  This  causes 
the  burble  model  to  act  as  though  the  aircraft  was  at  a fixed  range  XFRZ 
behind  the  ship.  Setting  IWIND  ■ 0 eliminates  all  turbulence  while 
ILTURB  * 0 sets  the  free  air  turbulence  components  equal  to  zero. 

Variables  SUBSW  and  SWBSW  provide  magnitude  scale  factors  on  the  steady 
burble  components.  Finally,  the  magnitude  of  the  random  components  are 
selected  by  setting  values  for  the  seven  elements  of  the  array  GR(I). 

In  addition  to  calculating  the  current  values  of  the  turbulence 
vector,  WINDC  also  calculates  the  statistics  of  each  wind  component 
including  average  and  RMS  values. 

SHIP 

Subroutine  SHIP  provides  a six  degree  of  freedom  representation  of 
ship  motion.  The  equations  are  adapted  directly  from  reference  (d)  and 
represent  the  motion  of  a DLG-26  class  destroyer  in  sea  state  5 with  10 
knots  ship  speed,  13  meter /sec  (26  knots)  wind  and  150  degree  heading 

with  respect  to  the  wave  crests.  This  approximates  a worst  possible  ' } 

condition  in  which  flight  operations  may  be  attempted. 

, SUBROUTINE  DECK 

Subroutine  DECK  computes  the  inertial  position  of  the  ideal  touchdown 
point  and  the  velocity  and  height  of  the  deck  at  a point  directly  beneath 
each  of  the  four  landing  gears.  It  sets  a flag  I0VDK  to  one  if  the 
aircraft  is  over  the  deck  edge,  and  sets  array  element  ITOUCH(I)  - 1 
when  the  Tth  element  of  the  four  landing  gears  touch  the  deck.  This 
information  is  used  to  calculate  landing  gear  forces  and  to  determine 
when  touchdown  occurs. 
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LOOP  3 

LOOP3  is  part  of  th«  basic  simulation  package  developed  by  NASA 
Ames.  It  integrates  aircraft  inertial  velocity  to  determine  position. 

It  also  calculates  vertical  and  horizontal  flight  path  angles.  LOOP 3 is 
called  by  the  main  program  at  a normal  rate  of  10  times  per  second.  It 
in  turn  calls  subroutina  DECK  which  computes  ship  motion  and  landing 
gear  position. 

LOOP  2 

L00P2, which  is  called  by  the  main  program  at  a normal  rate  of  20 
times  per  second, computes  body  axis  forces  and  moments  and  integrates 
the  forces  to  determine  inertial  velocities  and  altitude.  It  calls 
brotate  which  integrates  the  torque  equations,  and  B TRANS  which  calculates 
the  Euler  angle  transformations.  BVELOC,  BALFBET,  SHOW,  PILOT,  C0NTR2, 
ENGINE,  AER02,  and  WINDC  are  also  called  by  L00P2. 

In  addition  to  the  basic  function,  a landing  gear  position  clamp  is 
included.  When  the  brakes  are  set,  the  wheels  are  in  contact  with  the 
deck,  and  the  relative  velocity  between  the  wheels  and  deck  is  less  than 
two  feet  per  second;  the  aircraft  position  is  fixed  relative  to  the 
deck.  This  allows  the  aircraft  to  brake  to  a stop  without  oscillating 
back  and  forth  as  would  occur  without  the  clamp. 

BQUIET 

Subroutine  BQUIET  computes  a gradient  matrix  relating  aircraft  state 
error  u,  v,  w,  Q,  P,  R to  control  Inputs.  The  error  matrix  is  used  to 
compute  a weighted  least  square  error  matrix  which  is  non- singular  even 
if  the  number  of  controls  is  less  than  the  number  of  states.  The  error 
squared  matrix  is  Inverted  by  subroutine  MINV  and  used  to  compute  a 
gradient  step  of  the  selected  control  variables  Intended  to  minimize  the 
state  error.  Slight  modifications  were  made  to  the  NASA  Ames  version  of 
this  subroutine  which  appear  to  Improve  the  efficiency  somewhat.  In 
contrast  to  the  original  version,  the  gradient  is  evaluated  only  once  at 
the  beginning  of  the  trim  procedure.  Then  a maximum  of  25  steps  are 
taken  with  the  fixed  gradient.  After  each  step  is  taken, the  trim  error 
is  evaluated.  If  the  weighted  squared  error  is  less  than  90  percent  of 
the  past  value  of  this  error,  the  old  gradient  is  retained.  Otherwise, 
a new  gradient  is  calculated.  Also,  the  step  size  is  reduced  after  each 
step  to  ensure  convergence.  When  the  gradient  is  reevaluated,  the  step 
gain  is  returned  to  the  initial  value.  A special  trim  sequence  is 
provided  for  trlailng  the  aircraft  on  the  deck  in  which  only  altitude 
and  pitch  attitude  are  varied. 

The  trim  sequence  is  terminated  when  the  error  criterion  is  satisfied 
or  the  maximum  trim  iteration  count  is  exceeded.  A failure  to  trim 
within  the  specified  number  of  iterations  usually  indicates  some  error 
in  the  aircraft  model  structure.  Providing  a good  initial  guess  for  the 
trim  variables  will  greatly  Improve  the  rate  of  convergence. 


25 


NADC-77024-30 


BVELOC 

Subroutine  BVELOC  computes  body  axis  turbulence  given  inertial 
turbulence  or  inertial  turbulence  components  given  body  axis  components 
depending  on  the  value  of  IETURB.  It  also  computes  the  inertial  wind, 
aircraft  relative  Inertial  velocity,  and  body  axis  relative  wind  components. 

BTRANS 

BTRANS  computes  the  sine  and  cosine  of  the  aircraft  elevation,  bank, 
and  heading  angles.  These  six  values  are  then  used  to  compute  the  nine 
elements  of  the  Euler  angle  transformation  matrix.  This  matrix  is  used 
to  transform  position,  velocity,  and  acceleration  from  body  axes  to 
inertial  axes.  The  reverse  transformation  is  achieved  using  the  transpose 
of  the  matrix. 

BROTATE 

Subroutine  BROTATE  computes  the  rotational  motions  of  the  aircraft. 
Angular  accelerations  are  computed  in  body  axes  and  Integrated  to  yield 
pitch,  roll,  and  yaw  rates.  These  rates  are  converted  to  inertial  Euler 
angle  rates  which  are  then  Integrated  to  yield  elevation,  bank,  and 
heading  angles.  In  addition  to  the  basic  function,  a heading  clamp  is 
provided.  This  serves  as  a substitute  for  landing  gear  yawing  moment 
when  the  aircraft  is  on  the  deck.  Changes  in  yaw  angle  are  prevented 
when  both  the  main  and  nose  gear  touch  the  deck. 

The  angular  acceleration  equations  are  formulated  to  include  constant 
magnitude  rotor  angular  momentum  and  cross  products  of  inertia.  Changes 
in  rotor  speed  or  configuration  are  not  accounted  for  at  present. 

However,  the  Inertial  coefficients  could  be  computed  and  updated  during 
the  simulation  run  if  they  were  required. 

A more  basic  limitation  occurs  because  the  angular  rate  transformation 
is  Ill-defined  at  pitch  angles  of  +90  degrees.  Thus, the  simulation 
cannot  be  used  for  spins  or  vertical  climb  or  dive  maneuvers. 

A special  reduced  degree  of  freedom  option  is  provided  for  use  in 
matching  flight  test  data.  When  the  switch  I2D0F  is  set  to  one,  the 
computed  pitch  attitude  and  pitch  rate  are  Ignored  and  tabulated  values 
of  pitch  attitude  versus  time  obtained  from  flight  measurement  are 
substituted.  The  tabulated  values  are  also  differentiated  to  determine 
pitch  rate.  Using  this  procedure,  the  aerodynamic  and  engine  parameters 
of  the  simulation  may  be  more  easily  adjusted  to  match  measured  flight 
trajectories. 

BALFBKT 

Subroutine  BALFBET  computes  the  aircraft  angle  of  attack,  sideslip, 
rate  of  change  of  sideslip  and  angle  of  attack  and  the  airspeed  given 
the  three  body  axis  components  of  velocity,  and  the  body  axis  angular 
rates. 
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BATHOS 

Subroutine  BATHOS  determines  air  density,  tha  apaad  of  sound,  Mach 
nuabar,  dynaale  praaaura,  total  and  aablant  taaparatura,  total  and  aablent 
pressure,  and  tha  equivalent  airspeed  baaed  on  standard  ataospherlc 
propart las.  It  corrects  for  non-standard  taaparature  baaed  on  a taaparatura 
lncraaent  specified  by  tha  user. 

LOOKUP 

Subroutine  LOOKUP  handles  tha  linear  Interpolation  of  tabulated 
functions  of  1,  2,  or  3 variables.  One  of  three  search  nodes  aay  be 
selected  by  setting  variable  aeth  equal  to  1,  2,  or  3.  In  addition, 
if  the  arguaents  exceed  the  tabulated  values,  option  switches  peralt 
linear  extrapolation,  the  return  of  the  last  value,  or  the  setting  of  an 
error  flag. 

TAB1  (A,  B,  C,  N,  MU) 

TAB1  returns  to  the  calling  program  a single  value  determined  as  a 
function  of  the  calling  arguments.  The  first  three  parameters  are 
arguaents  of  the  LOOKUP  table,  the  fourth  specifies  the  first  table 
nuabcr  referenced  and  the  last  parameter  specifies  the  number  of  tables 
referenced.  If  the  function  depends  on  one  or  two  parameters,  only  one 
table  aust  be  supplied  for  each  value  of  the  third  variable.  In  addition 
to  supplying  the  function  value,  TAB1  also  prints  an  error  message  when 
the  table  arguaents  exceed  tha  tabulated  bounds. 

TABRD 

TABRD  la  called  only  during  the  setup  procedure.  It  reads  tabulated 
data  points  used  In  the  Interpolation  routine  from  cards  and  loads  then 
Into  designated  arrays.  At  present, all  of  the  tables  aust  be  loaded  as 
a block  when  the  deck  la  loaded.  Individual  tables  cannot  be  updated 
between  runs  without  reloading  the  program. 

RAND 


Subroutine  RAND  la  a standard  library  subroutine  which  returns 
a random  number  each  Clae  It  la  called.  Repeated  calls  to  this 
subroutine  produces  e sequence  of  normally  distributed  numbers  with 
zero  mean  and  unit  variance. 

ARDC62 

This  subroutine  contains  the  standard  atmospheric  density  and 
speed  of  sound  tables  which  are  valid  from  0 to  240,000  feet  above 
sea  level.  Values  of  density  and  speed  of  sound  ere  tabulated  every 
2000  feet.  The  subroutine  returns  one  value  of  density  and  one  value 
of  the  speed  of  sound  given  altitude  as  an  Input. 


27 


NADC-77024-30 


BSETUP 

Subroutine  BSETUP  Initializes  aircraft  position,  velocity,  and 
attitude  during  the  trio  procedure.  It  calculates  initial  values  of 
weight  and  the  inertial  coefficients  used  by  BROTATE  to  integrate  the 
torque  equations.  Aircraft  position  can  be  specified  with  respect  to 
the  pilot  eye  location  if  ICG  ■ 0,  or  with  respect  to  aircraft  eg  if 
ICG  - 1. 

Angular  velocities  are  initialized  in  body  axis  rates  if  IEULR  * 0, 
and  by  Euler  angle  rates  if  IEULR  * 1. 

Airspeed  may  be  initialized  in  knots,  or  Mach  number,  depending  on 
the  value  of  IMACH.  It  may  be  also  specified  by  setting  the  values  for 
the  three  components  of  body  axis  velocities,  UB,  VB,  and  WB.  This  is 
equivalent  to  specifying  airspeed,  angle  of  attack,  and  sideslip.  For 
conventional  flight,  trim  angle  of  attack  is  fixed  and  trim  pitch  attitude 
is  varied  to  achieve  the  desired  initial  flight  path  angle. 

MINV  (HTH,  M,  DET,  LM,  MM) 

Subroutine  MINV  is  a standard  library  routine  called  during  trim. 

It  calculates  the  Inverse  of  a matrix  and  the  determinant.  Array  HTH 
initially  contains  the  original  matrix,  and  it  holds  the  inverse  after 
the  subroutine  returns.  M specifies  the  dimension  of  the  array,  and  DET 
is  the  value  of  the  determinant.  LM  and  MM  are  single  dimensioned 
arrays  equal  in  size  to  the  dimension  of  the  two  dimension  array. 


PRELIMINARY  SIMULATION  RESULTS 

A series  of  simulation  runs  have  been  made  in  an  attempt  to  verify 
the  accuracy  of  the  computer  model.  To  date, this  attempt  has  been 
limited  by  the  scarcity  of  fully  Instrumented  open  end  closed  loop 
aircraft  response  data.  The  only  data  available  thus  far  has  been  from 
short  take-offs  made  aboard  ship.  No  data  has  been  available  for  hover 
or  conventional  flight. 

Although  no  comparison  flight  data  was  available,  it  was  known  that 
the  Harrier  is  unstable  although  controllable  in  hover  and  low  speed 
flight.  Simulation  results  illustrated  in  Figures  6-11  agree  with  this 
assumption.  With  stability  augmentation  off,  the  aircraft  diverges  in 
all  axes  when  subjected  to  an  elevator  doublet  starting  from  a jet 
supported  trim  condition  of  0 and  18  m/sec  airspeed.  If  the  stability 
augmentation  system  is  engaged,  the  pitch  response  is  stabilized,  but 
the  airspeed  still  appears  to  diverge.  The  simulation  predicts  an 
aperiodic  divergence  in  roll  with  SAS  off.  With  the  SAS  engaged,  the 
lateral  response  is  greatly  reduced,  but  the  aircraft  still  is  unstsble. 

Figure  12  Illustrates  the  aircraft  pitch  response  at  SI  m/sec  with 
SAS  off.  This  simulation  predicts  that  the  aircraft  is  unstable  and  has 
a very  r.ipid  nperlodlc  divergence.  This  agrees  with  reference,  (b)  which 
predicts  n time  to  double  amplitude  of  1.95  seconds  at  a SI  m/sec  trim. 
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FIGURE  7.  AV8A  OPEN  LOOP  PITCH  RESPONSE  TO  ELEVATOR  DOUBLET 
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The  stability  augmentation  system  improves  the  response  at  this  condition, 
but  it  is  difficult  to  measure  equivalent  roots  because  the  aircraft 
diverges  in  roll.  Figures  13  - 15  illustrate  the  nature  of  this 
response.  The  SAS  on  the  spiral  mode  diverges  rapidly,  and  the 
Dutch  roll  mode  is  neutrally  stable.  The  simulated  Dutch 
roll  has  a period  of  about  2 seconds  with  SAS  on,  and  approximately  3 
seconds  with  SAS  off.  This  compares  with  an  estimated  period  of  11.6 
seconds  which  does  not  agree  too  well  with  the  simulation.  However,  the 
estimate  is  not  based  on  flight  test.  Thus.it  is  not  completely  reliable. 

In  conventional  flight  at  a speed  of  67  m/sec,  the  simulated  aircraft 
displays  very  high  short  period  damping,  and  a very  long  period  phugoid 
with  light  or  neutral  damping  SAS  off.  The  estimated  phugoid  characteristics 
for  this  configuration  found  in  reference  (b)  are  a period  of  40  seconds 
and  a damping  ratio  of  .15.  This  compares  reasonably  well  with  a simulated 
period  of  30  seconds.  The  simulated  Dutch  roll  period  at  87  m/sec 
matches  well  with  the  estimated  value  of  3.4  seconds.  However,  the 
spiral  is  predicted  to  be  stable,  whereas  the  simulated  spiral  mode  is 
slightly  unstable.  (See  Figures  16-17.) 

In  addition  to  the  open  loop  response  simulation  runs,  a study  was 
conducted  to  determine  if  a reasonable  pilot  model  could  be  developed 
for  a takeoff  and  climb  mission  simulation.  A closed  loop  pilot  model 
was  developed  on  a trial  and  error  basis  which  provides  reasonably  good 
control  although  it  may  not  be  entirely  realistic.  The  model  was  programed 
for  a 198  m rolling  takeoff  with  variable  wind  over  the  deck.  Engine 
nozzle  angle  was  initially  ten  degrees  and  was  rotated  to  50  degrees  at 
the  end  of  the  deck.  The  nozzle  was  gradually  returned  toward  zero 
angle  as  the  altitude  and  airspeed  Increased.  The  model  showed  a limit 
cycle  characteristic  in  pitch  during  transition.  This  is  indicative  of 
the  high  gain  and  lead  required  by  the  pilot  during  this  maneuver.  A 
pitch  up  characteristic  is  evident  when  the  nozzles  are  rotated  to  50 
degrees.  In  spite  of  the  pitch  oscillations,  the  model  regulates  altitude 
and  airspeed  well.  The  pitch  oscillations  are  eliminated  by  increasing 
the  pilot  pitch  rate  gain.  However,  a real  pilot  may  not  be  able  to 
provide  this  much  demping.  (See  Figures  18-19.) 

The  two  degree  of  freedom  option  was  used  to  cjmpere  the  simulator 
angle  of  attack  response  to  flight  measured  angle  of  attack.  Pitch 
attitude  and  elevator  position  were  constrained  to  match  flight  measured 
velues  versus  time.  Then  the  computed  angle  of  attack  response  and 
altitude  trajectory  were  compared  with  flight  velues.  The  flight  data 
was  obtained  from  short  takeoff  runs  aboard  the  carrier  Franklin  D.  Roosevelt. 
Flight  tests  indicated  a substantial  initial  altitude  loss  when  the  AV8A 
wes  launched  at  a high  gross  weight  with  Inboard  454  liter  (120  gallon) 
wing  tanks.  Available  data  indicated  a substantial  lift  loss  due  to 
these  stores  with  deflected  engine  nozzles.  For  the  particular  run 
simulated, an  altitude  loss  off  the  ramp  of  2.4  meters  (8  feet)  was 
reported  with  13  meter /sec  (26  knots)  wind  over  the  deck  and  an  ambient 
temperature  of  32*C  (89*F).  The  simulated  store  lift  loss  was  adjusted 
to  match  the  reported  altitude  loss  for  the  given  attitude,  elevator, 
and  throttle  time  histories.  Figures  20  and  21  Illustrate  the  simulated 
and  measured  attitude  and  angle  of  attack  response.  The  overall  angle 
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FIGURE  13.  AV8A  OPEN  LOOP  RESPONSE  TO  STICK  DOUBLET 
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SAS  ON,  Vo  - 100  KNOTS  \ 
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FIOUKK  15.  AV8A  OPEN  LOOP  RESPONSE  TO  RUDDER  DOUBLET 
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of  attack  match  la  reasonably  doae  although  not  exact.  Thera  are  two 
poaalble  explanations  to  this  discrepancy.  First, the  measured  angle  of 
attack  Includes  distortion  due  to  Induced  flow.  Second. the  induced  lift 
versus  airspeed  may  not  be  modeled  accurately.  If  the  measured  angle  of 
attack  la  assumed  accurate.  It  Indicates  that  the  aircraft  Initially 
sinks  faster  than  the  simulated  values  and  then  arrests  sink  rate  faster 
than  the  model.  However,  the  actual  aircraft  altitude  trajectory  was 
not  measured.  Thus,  it  Is  not  possible  to  determine  the  source  of  the 
discrepancy.  Nevertheless,  the  simulation  is  capable  of  accurately 
predicting  performance  trends  due  to  variation  In  weight,  thrust,  and 
wind  over  the  deck. 


PLANNED  IMPROVEMENTS  TO 
COMPUTER  MODEL 

The  present  VSTOL  simulation  model  represents  a step  toward  a truly 
realistic  representation  of  tha  system  dynamics.  It  is  planned  to  make 
the  following  lmprovementa  In  the  coming  year: 

1.  Incorporate  more  realistic  ship  motion  dynamics  by  using  the 
NSRDC  ship  motion  program  to  generate  randomized  ship  motion  sequences. 

2.  Include  the  results  of  the  Vertol  wind  tunnel  measurement  of  the 
wake  behind  a F710S2  escort  Frigate  at  various  roll  and  yaw  angles. 

3.  Adjust  aerodynamic  and  engine  parameters  to  match  flight  response 
characteristics. 

4.  Develop  e more  sophisticated  pilot  model  which  Includes  response 
lag  and  frequency  limits.  This  will  permit  an  evaluation  of  various 
control  configurations  under  different  motion  and  turbulance  configurations. 


CONCLUSIONS 

The  present  computer  program  repreaents  a comparatively  versatile 
tool  that  can  be  used  for  both  stability  and  performance  evaluations  of 
VSTOL  aircraft.  The  AV8A  model  Is  sufficiently  detailed  that  errors  In 
predicted  results  should  be  largely  due  to  errors  In  Input  model  perameters 
rather  than  model  structure.  Further  Improvements  to  the  model  will 
require  additional  data  derived  from  carefully  Instrumented  flight 
tests. 

Although  the  current  model  Is  based  on  the  AV8A  Harrier,  other  VSTOL 
aircraft  could  be  almulated  relatively  eaally  If  the  aerodynamic  and 
engine  data  were  provided  In  a prepared  form. 

Much  work  remains  to  the  done  before  a total  VSTOL  analysis  capability 
will  be  at  hand.  Major  areas  include  pilot  modeling,  analysis  of  turbulence 
and  ahlp  wake  structures,  ship  motion,  and  jet  Induced  lift  effecta.  It 
is  planned  to  address  many  of  theaa  areas,  principally  pilot  modeling 
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and  turbulence  modeling  In  the  coming  fiscal  year.  Regular  updates  to 
the  computer  model  will  be  made  as  additional  data  becomes  available. 
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ALPHA 

BETA 

CD 

CL 

C'DR 

CM 

CH 

CNDA 

CNP 

CY 

Cl,  C2 

DH 

DR 

JPT 

Kl,  K2 
• 

P 

Q 

a 

R 

RCS 

RMS 
RPM 
SAS 
T/T 


LIST  OF  SYMBOLS 
angle  of  attack  - dag 
aldealip  angle  - deg 
drag  coefficient 
lift  coefficient 
rolling  ament  coefficient 

rolling  aoaent  coefficient  per  degree  of  rudder  - 1/deg 
pitching  aoaent  coefficient 
yawing  aoaent  coefficient 

yawing  aoaent  coefficient  per  degree  of  aileron  - 1/deg 
yawing  aoaent  coefficient  per  unit  roll  rate  - 1/rad 
aide  force  coefficient 

landing  gear  daaplng  coefficient  - |Me>r  — ( j|t — ) 

elevator  - deg 

rudder  - cog 

jet  pipe  teaperature 

landing  gear  aodel  aprlng  coeff lclenta  - 

2 

roll  acceleration  - rad/eec 

2 

pitch  acceleration  - rad/sec 

2 

yaw  acceleration  - rad/eec 
reaction  control  eystaa 
root  aean  square 
revolutlona  per  ainuta 
atablllty  augaentatlon  eystaa 
percent  reaction  control  thrust 
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u 


u 

UBSS 

UB1 


UB2 


VEQ 

VO 

VRW 

VYBR 

W 

WBSS 

WB1 

WB2 

• 

u 


«* 

9 


&CL 

9 


* 

V 


LIST  OF  SYMBOLS  (COKI'D) 

X body  Axis  airspeed  component  - a/s  (ft/s«c) 

2 2 

rat*  of  change  of  u - a/a  (fc/sae  ) 

steady  state  horlsontal  burble  eoaponent  - a/s  (ft/see) 

horlxontal  turbulence  due  to  ship  pitch  - a/s  (ft/see) 

horlsontal  turbulence  due  to  randoa  burble  • a/s  (ft /sec) 

ratio  of  horlsontal  burble  velocity  to  ship  speed 

Y body  axis  airspeed  eoaponent  - a/s  (ft/sec) 

2 2 

rate  of  change  of  V - a/s  (ft/sec  ) 

equivalent  airspeed  • a/s  (kts) 

trla  airspeed  - m/s  (ft/sec) 

true  airspeed  • a/s  (ft/sec) 

lateral  burble  eoaponent  - a/s  (ft/sec) 

Z body  axis  air  velocity  eoaponent  - a/s  (ft/sec) 

steady  vertical  burble  eoaponent  - a/s  (ft/sec) 

vertical  burble  velocity  due  to  deck  pitch  - a/s  (ft /sec) 

randoa  eoaponent  of  vertical  burble  velocity  - a/s  (ft/sec) 

rate  of  change  of  aircraft  Z axis  velocity  WRT  air  « a/s  (ft/sec) 

angle  of  attack  - deg 

angle  of  sideslip  - deg 

increment  in  lift  coefficient  due  to  stores 

pitch  attitude  - deg 

wheel  braking  coefficient 

bank  angle  - deg 

yaw  angle  - deg 
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pnOOHAM  AVOA,>(  INPUT, OUTPUT.TAPE1*TARE2»TAPE10.TAPE97,TAPEI*«OUTOUT) 

COm«0N/*^U0»T/A(400)/IFIXE0/IA<<!00I 

COMMA  "i/OF/P^OOI/ICHF/Itf  (50  > 

ComhON/UAT/PATTITIIS)  »DATNO (*0)  .CHTSP. SCALE  (2#)  » 

) T»»AX.NP|.OT(U>  .IACACE 
f OMMON/OHl OCH/ I plot ( 1 A) , JPHNT 111) 

COMVUN/GA I N 1 /OA (100) 

DIMENSION  NOpAT  ( 1(1)  ,U(V) 

EOUIvacF>CE (STAH.nl 1) ) . (AIL, a (2) ) • (BUO.P (3) ) , (RLONSTK.O(T) ) 
EOUIVAccnCF (RCATSTK.HIV) ) . (BllDHtD.B « 1 1 ) ) , ( TMPOT •»( 1 A) ) , (RNl«4(19> 
1 > . |T*Tn.h(17) ) . (TOTRH.1M20) ) 
fOUVAutNCf  (I(,«A0.IP(31)  ) 

POUIVALFNCP ( IN (?/) ,NCNK) 

FO'iI  vac) nCF(1STAT»IH(a2)  ) 

riUtVALCNCF IMTIME,A(30*>  > 

F UIIVAC  - .'CPIIIHIS.  IH(AO)  ) , (tUPCOT.IBCAl)  ) 

F')'JI  VALFNrr  (A(33*l  ,OTlPI  , (OT  1*1.4(335 1 ) , (T  1.4(336) ) 

FOOT  vac INCE (J*  . Jh  C 49)  ) . (JCANO.  IP(SO) ) 

FOCI  VAC  F('CP  (31.14(110)  ) 
rOdlVACENCP  (AIP30)  • Vt'QIC) 

l.(tAll). I MOPE ) . (14(11*1 • t*4CH) • (A (241) ,MIC) . (4(151) .40) 

?,  (I  A IP)  .fFCATl  . (4(^94)  «C(.)  . (I4(1V3I  • I TRMP > , (141105)  ,N»  UN) 

3. IT  All. 1) • troNO) . (I  A (23) . ITPROOI . (14(61 1 .I0T1) . (IA(h2) ,I0T?> 

• • IIAIUJ) .IIIT3) • 14(303) ,T1*E) . (14(102) . I TRIM) , ( 1 A ( 1 1 1 1 , I THMCPI 
(OUlVAcfNCF  (*)T3,4  ( IfcV)  ) 

IIMIVAUNCA.  1 1*1 10V)  ,N2> 
r.)"TV4C)NC»:(FRei»CK.«4)l(l)  ) 

4'tliIVAC.NfF  (ITn.lP(lA)  ) • (ILAND.IRO) ) , (1CRA5H.1BI9)  ) 

FOiilVAl  M f.r  (TTFuO.lAIA) ) 

F ’I»Iv*CEM:f(>*A(?3)  ,OTI*2) 

Foil IV ACI *Ch  (MU5C0.1AI ImO)  > 

UT*E*SION  mESAUF (15) 

I»>TFu£R  HtiAT» 
data  ClT  l*2/.2/ 

PAT*  JC-A/2H  (,/.jSC*/S*SCACE/. J*P/5*NPCOT/,JC*/S*CmT5P/, 

1 h04T4/»hmoaT/.JN/?H  H/.JIb/2Ml«/ 

CiAT*  JA/JfM  A/.JI4/2MI*/ 

1/4T4  | .MV/amPM)  / 

f'ATA  'iOOAT/amSTAR.AM  .4HAIL  «*H  . 4HOR  ,*H  , AML*ST . AWK 

1 .*n(TAT,A*K  ,AhTHRO  ,**T  ,4MPNl  , AH  .AHTOTR.AHM 

2 .ahthTii  .ah  / 

OAT*  U/AH'/E(...AHIiEA.«4H0EA.,AHCH.  . *hch.  . AHOCO.  , AHPCT  . . AHNEmT  . 

1 «*••%(!./ 

DATA  I T I T/AhAVR*/ 

04T4  ITh1S/1/.IUPLOT/0/,IST4T/U/ 

(•at*  IUUAT4/*mUOAT/ 

OA1*  UTIP/.O*)/ 

DATA  J//100/.JCANO/0/ 

OAT*  l»TtHl/,l/ 

DATA  JtfllM/Q/ 

OAT*  Tl/2./ 

(•AT*  UOn/lH// 
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OATA  IKANK/ah  ✓ 

OATA  IDATA/AMDATA/ 

PAT  A lOMPN/AHOPPN/ 

c 

C DAT*  INPUT  SECTION 

C 

OftSOl  oFAO  <>071.NPON 

ft?ftTl  fommaTI|2) 

NilSfD"l 

IF (HHUN.ro. 0)  STOP  a 

OftSOO  OF  40  lOOft.NAME.PTrNE 

c 

C CHFfK  FOP  SPECIAL  SYMBOLS 

N>"1 

tF (MA<E.NE.I0ATA1  AO  TO  6S0 

c 

c PWFPAWt  TO  PCAO  DATA 

c 

•PINT  2U06 
C 

C MAP  INPUT  CAPDS 

c 

c 

OOSAO  or  AO  101  «•  rFO’A'COMMOPfWCELC*  VALUE*  MCSAOE 
ir  | UO.FP.  |"l»»>  00  TO  900 

AO  TO  <SbQ.M0'fcl0«fe20t630tt>*0'O*ltfc*2)  NCOMMON 
C 

c float IN6  point  common 

c 

OOSSO  AINCFLLI  ■ VALUE 

Pm  I NT  r Vftl) « ja  tNCFLL  • V ALUE  •mCSAQC 
AO  TO  S*0 
C 

C jMTf AtM  COMMON 

C 

OooOO  I A (Nf.tLL > * VALUF 

►PINT  ^00!»t  JJA.NCELI*  IA  INCELL)  *MESA«I 
AO  TP  !>A0 

np*.lu  AA(NCkLL)  "VALUE 

paiuT  irOOO.JAA.NCELL. VALUE «MESA(»C 
0?ftU0  roMMfcmftn,iAMOATA  INPUT  TO  »AS«2H<  »I3»2M  ) 

1 r]A. •«>*. ISAM) 

AO  TO  S*t* 

0A»  20  SCALE  IF  CELL! "VALUE 

«•* I nT  »U  00 . J*C  A • NCELL ♦ VALUE  * MCS AQE 

AO  TO  Sa<> 

On*. 30  N*»L OT  (NCFLLI  "VALUE 

ot>I>'T  i*  Oft  S «Jr*P  .NCELL  « VALUE  » MCS  ABE 
0?ft0S  fopp AT  1 1 <1  v • 1 AMD  AT  A input  TO  »PS»2M<  iI3.12M  1 

1 TJft.ftA.lSAA) 

«-0  TP  0*0 

OuOAft  CmTSP"VAL"«: 

FwIFT  FftOOt JCMt NCELL* VALUE tMLSAUE 
bO  TO  »A» 


•UNCOMMON  ■ • 


COMMON  ■ • 


A.  A 


NAoc-m**-ao 


MnCELDbVALUE 

BBtNT  *dOO,jA«NCELL.VALUE,)*ESAliE 
GO  TO  5*0 
M (NCELL ) bVALUE 

"BINT  ifOOG,  jH»nCELL>  IMNCELLJ 
GO  TO  b*0 


c 

c 

c 

c 

'>•>*50 


Ch'CX  IF  USCP  IS  REQUESTING  INPUT 
Continue 

if  (*a**e  ,ne  .moata)  go  to  sso 

ar «c  l ft  11  * IEI> • NCOmmon. NCELL » VALUE • MESAttE 

IF  (ttO. FQ.  IFOO)  GO  TO  500 

00  TU(»>b*«GGJ)  NCOPMON 

OATTI  f l*.T.f  LL I * VALUE 

bb I '•  T toil » I H>  •nCunnON* NCELL* VALUE *RES AGE 
no  ru  f>51 

n«TMl>  (n(>(.L  I *VA|.UE 

»a I ►> T 1 •»  1 1 « TEO  , mCOm-on , NCELL » VALUE  tPESAGE 
FOUM.I  IA1,  t 10«,I3,A10,I5AA) 

00  TO  Obi 
FONT  I ui if 

IF  (NANfc  .Nf  . JIIUATA)  GO  TO  TOO 

liAFR  xt 0* If  STING  DATA 

CALL  TfKwOtl  ,VJ,nGI 
GO  TO  boo 


C 

C 

c 

'*0700 


00703 

60701 


IF(NA»E.f>.IORRN)  GP  TO  9S0 
BF  AO  TO*, II BE AO, I?RF AO , I SCALE 
FONPAT (3(17,11)  ) 

IFdlNfAii.NF.O)  bead  703 , ( I PLOT  (I)  *1*1,1*) 
IH  REAP  763,1  IBRNT  fi)  ,1*1,11) 

FOBmaT(iiIIO) 

Continue 

T T "F  *0,0 
I*.t(r«-1 
RBTNT  c01« 

IT^nC"*! 

ITBMhsv 
( TRRUNB 1 
JTbJ?* 1 0 
Jl*l 

FONT  INI  if 
( *LL  SETUP 

|f 1 1 TkwOg.Eu.O ) GO  TO  000 
Jlsjl*l 

I»(  Jl  ,I,T.J3)  GO  TO  NOOO 

IF(j1 .6T.j2.AnO. JGRAO.EO.l)  GO  TO  0000 
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(.0  TO  7VVV 

0*000  CONTINUE  I | 

00*00  CONTINUE 

PRINT  3000. Jl 

0 30  00  format (1  OK. 23M  T»l**  TERMINATED  AFTER  .13*  11*  ITERATIONS) 

*1*0 

1?FRO*0 

|F(N*.FQ.1>  I ZERO* 1 

IF (IZEPO.EO.ll  CALL  PMINTO 
t?puii«o 

IF (IURlOT.FQ.il  CALL  DATSAV 
pLNSTamb/I.SAFQlONSTK 
PLT<TKRb>>.S**R|  ATSTK 
T 4f  T»TOTP*'**.**lb 

CALL  nJCKt-I (ITIT. STAR. AIL. RUD.RLNSTKM.RLTSTKM.ThR0T.RN1.TMET. 

I TmTamM'DAT  «U) 

PRINT  *007 .NT  I Mf 
MT»“F 1*0. 

ImO'iF  *1 

OOplO  COATIWJf 

tF  ( T Imp -RTI**E  I ) 031.h32.o32 
00*32  IFHTHi3.EQ.il  CALL  TIMEHlS  (TIMEI 
MlaMl*l 
l)TI***i»TI*2 

1» (TIMt.LT.Tl.ANO.NCMK.GT.O.AND.EREOCK.EO.O)  OTIMbOTImI 
if  (*CHa.r.T.O.AMO.FRFOCK.OT.O.I  OTIM*.23/FREOCK 
► TT**F  1 PflTIMPAll 

IF|T|Mk.(.fc .TI.Ano.MCmk.OT.O.Anu.FREQCK.EO.O)  RTImE1»0TIM*N1- 
1 /0T1*1*(iT|m»TI 

00*31  roMTiHio 
call  lour* 

( Al.L  LUC.P3 

tF(IUPLCT.FQ.l)  CALL  DATSAV 
• CALL  LOOP* 

CAt.L  LOOP 3 

IF  ( TtiRLfT.EQ.  1 ) CALL  DATSAV 
iF(TlHt.r-t.PTIMF)  60  TO  OSO 

IF ( I To.Fo, ] . Amo. JLAMO.CU. 1 1 RO  TO  6S0 
|F (TCwaSH.E0.il  60  TO  kSU 
(?o  TO  ol'l 

C CmFC*  FOR  PPINT  RFIMIFST 

00*50  tF(tTHii.F0.11  CALL  TlMENlS(TI*»kl 
ROP-iT  03 1 • JL  AMD.  I TO.  1 CRASH 

00*51  FOP-AT (1  OF .MMJL Al»0*  .I2.5hIT0»  . 1 2. OH I CRASH*  *12) 

c 

c rpiht  rfoufkted 

IF  (r  CnK.PT.O. OR. 1STAT.EO. 01  RO  TO  702 

Call  pminto 

0*702  COMTIMF. 

Ir  ( I ‘.•F'lOT .FO.l  I CALL  ORLOT 
F.FaN#'.  1 

IF  (M2-nm(.m|  70l.701.S0l 
C C*  aii  t no. . ...  .Command  mot  ME  Corn  I zed 

or.030  FopjT  *01.0. MAMt  j 


STOP  o 
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C POINT  FORMAT  ST ATEHENTS 

C 

C 

O1O0O  FO0HA7I1X.A4.SX.99.O) 

C 

MMO  F OphaT  (A1 .11 «SX, 13.91 Q.Q.1SA4) 

01020  F0*maT(A1 .A3.1VA4) 

C 

C 

c 

02006  ForhaT  (1*1  .///.20X.30  (lH*l  «/.20X» 1n*«29X * 1M*»/*20X  » lH*»l OX 
1 . 11**INPUT  (>ATa  .AX.lH*./.20X.lH4.28X.lH*./.20x.30(m*)  ) 

c 

0»007  T QJWAT ( 1h1 .///«20X  <30 (IN*) «/.20X»lN*«28X*lH**/»20X»lH*»l(IX. 

1 RHflPfcRoTE  • 1 IX. lN*«/»20X. lH*»  7X.10HHUN  TINE  .F7.2.5X . IH*,/ 
2*?»X<  1h*.2>*X.1n*./.20x.30<  lH*)  ) 

c 

02010  m>*paT (1h1.///.20X<30 (1H*> ./.20X.1n*.2»x.1h*./.2«X. 1M*.10X 
1 .IOmThI*.  ROOt  « VX  » lM*  »/ «20X « 1 H*  »26X  » lH* »/ <20X .30  1 1 H* ) ) 

C 

0?eSO  »ORP*f  ( IN.//.  10X*3‘>H0OlvE“  CONTROL  CARO  ERROR . A4) 

02060  Ffl0NAT(lX«Al'AJ.19A4) 

C 

C 

tun 


S.iaooyTjNF  AF7MP 

Coupon/ aFLOAT/4 ( SOO ) / IF I XEO/I A ( 200 ) 

COj**ON/CmF /R  (2001  /1CHF/  lh  (SO ) 

E0"IV»L1T.CE(A(2A) .ALFAI . (VOIC. A (2291 ) « (PHI IC« A (230) > « (THETIC* 

1 A ( 23 i )). (PA IIC. A (232) > • (MIC. A (2*1) ) 

►<ViIVM.*NrF<TA(6SI *10). (IA(lll) .RTR1H) . ( 1 A ( 1 02) . I TR IP) . 
lf{T-'*P«(A(103)).(  ICPPMT  . 1 A ( 124)  ) • ( ITRHCM.  1 A ( 1 1 1 ) ) . ( I TPROO.  I A (23)  ) 
HOIVALfNCF ( I NOK  XTtlA(llO)) 
t-l  l|V4UM.f  (AM  10)  .COURSE) 

10  IJV-OM.  (CT^FTR.AI  114)  ) • (CTHtTR.A(US)  ) 

C V*u.l  O (V<!».A(T4)  ) . (VF.W.A  (7?)  ) • (VOW.  A (78)  ) 

1 0"|  VoLEMtt  »P2H,a  ( )•,  (HrJTA  IC«*  < 17)  > 
t t» IVPLl'.C.  1 ) ) . (7RmSTAR.R(4)  ) . (NLNATNO.B(W)  > . 

1 <wlT*Tko..4(1<*>  ) . (RRE(Mi.H(21 1 ) . t TnnOT IC«W  ( IS) ) * (RLONSTK  .B ( 7) ) 

► »l'M  v»Lfc''rF  <wL*T$1K.MV)  ) . (RUOPtU.Rdl) ) . (THROT *H(  14)  ) . 

1 (TNT  .IC*i(  I.ll  . (THTRC.  6(141  ).  (HRi.H(iV)  >.  ( THTN.H  ( 17)  ) 

to>trv*LM>CF  (T»«pTpM.P(2*)  ) . ( THRThX  .1  (23 1 ) . (THTMN.H (24) > . 

1 (TWTPX.N (2S) ) . (PH  INN.  f*  ( 26 1 ) • (PHlPX.R(27) > . (PEONN.rt ( *•> ) * 
2(P*OMX.M*V)  ) . (ThTNMN.H(33>  ) . (THlNHX«h(j4|  ) 

(•MKVALl NCF ( VS.« (30) ) • (VNWR1C.R  US) ) • ( VEphIC.H (36) ) 

FO.iJvalM  <-t  (RtTAlC.H(3T)  ) . (STKH In.R  ( 38) ) . (STAMAX.* (39) ) • 

1 (fJL<“IN.I<(40)  ) . (PLSMAX.HI41)  ) 

1 OOlVRLknrr  (|TPR0O.|A(23)  I . (TTN.A(16S) ) . (EN.AdAH)  | . (Pe«Ad4«t ) 
FO'I  f vALFnCF  (EI'.A(ISO)  I.  (WAIT.  A (1/7)  ) . (CL  . A (131 ) ) . (SPA  I . A ( 1 4 ) ) 
fOUJVALtNCF (CPS  I, A (IS) ) , (RM0.A(l83) ) . (CHORD. A (162)) . ( ARE A • A (1  AO > ) 
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equivalence iorab* a ( i t h > > • ivph. aitoi > 

EQUIVALENCE (VNiAIBA) ) . (VC« A (*5» I 
EQUIVALENCE  CVEUIC.A (23M) ) 
equivalence ( j i • I A ( 1 1 a ) > 

EQUIVALENCE  (IM(IQ)  tlNlTI 
E OKI  VAufc'liCt  (M  (BO)  .»L*“1>  ♦ («LAn2.»(%1»  ) 

1'ATA  ThWTnn/0./.TH«Tne/102./»TmThn/-20./»TMTN*/30./ 

PA  T A *'HI«'N/-N./.PHlM*/S./»l»lU**N/-2./«BeDN*/2^/ 

C«TA  T-TN‘N/0./.THTNM)f/VEI./.STKNlN/-?.S/»STi<<4AX/4./.RLS*II»/-*./ 
Pat a hlenax/a./ 

I-tr»u 

CTJfTP  «CO<(COU«»SE» 

«.T«etn»S7N(CPIJ»SE) 

V V*s--Vb»{.THET»*VN«(RIC 

VEW»-VS«^TMETB*VENI*IC 

vvt»-vnv 

VfT«-VEw 

IP(VNT»10U. 1012. ion 
01  nil  continue 

N^IWNlJSAt  AN2(VET.VNT>*B20 
(SQ  Tf»  1013 

01  «12  Pmwnu»vij.*sIGN(1.  .VET! 

IE  (VET.EO.O.)  P«»I»NO«0. 

01013  CONTINUE 

PATICE^SIVNO-HETAIC 
CALL  «SE’Tl«P 
CAi.l  LOOn? 

CAI.L  L0n*»3 
CAi.1.  L«>0p2 

lriJl.0T.2E  fiO  TO  1 0 1 A 
CALL  «SE  TUP 
Call  LOCKS' 

CALL  LfX.'PJ 
• CAi.l  L<>OPir 
10 1 a CQ  IT  I nut 

on  TO  ( lOUl.lOlO. 1020. 10301  . INOEXT 
01001  C.QnT  I "*UE 
I«IT«1 

f ALl.  nuii  1 E T (2*ThETIC»TNTnn«TMTnA»mic.0.»100«* 
ii.,.n,.o..o..o.«n,fO.*o.»o.»o.*o«to.) 

Pi.TATKOeO. 

pprnnsv. 

TurinTElNwOTlC 

PNnC«XLAP2**>T.3 

P«INT  ciiii * TwPT IC.^HJ  I C • Hi C 

200  EOvmaT(sx.pntnetiC»  • Eb • 2 » bHPH 1 1 C»  .Eb.2 . OHMIC"  «E8.2  I 

on  to  boo 
01010  CONTI  ABIE 

CALL  NQilIET  (A«i»lNSTEO.STKPlN.STKNAX.TH»0TIC.TMRTPN,THBTMX. 

1 .1LT«T«C.ELAN1N,9LSMAX.THETIC.TMTNN.T*(TPX«PPE00*PE0*»N,PE0HX. 
ePn!  1C  •****!  AN.  PH I MX) 

►PINT  2b  1 • T mpoT IC •NlnSTkO.XlTSTaO.PNJ  1 C .HbEDO. TMET I C.PSI 1C 
0A201  E»»  »MAl  I2».NNT«N()T»  .E*-,3.«hPLNp  * f 0. 3. 6MRL AT»  .Eb.J.bHPMl* 

1 .EA.i.bNPLOb  .E(..2.*iHTMFT«  .E4.2.6HPSIB  «E».2l 
f-0  TO  bOO 


A-  H 
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t)|020  CALL  M*«m7(6*»LNS7KO.S7FMtN.S7AMAIf.TH«OTIC.7MNTNN.TN»TNX. 

1 pLtaTko*  mi  Smjn .plSMAX  ♦ THTn  IC  t ThTNMN.  7MTNMX  »OPCOO*PCON(.«PEOMX • 

1 , I, 

fc'^1  •ThmoT  tC 
TmTskThTMC 

pa J NT  *0<'»'»L'l*ST|fn*TMROTIC»rfLTSTI‘U.TMTNIC.«PFntO«PMXIC 
0"P02  M»K>rilD*i  PkPLNSTKO  .F10.6.»MTNN07IC  .FI U .5 .OHPLTS7KO 

l.Fin.b.  cWTwTMIC  .MO. 5*  bHPPtUO  tFlO.S.AMMMl IC  .F10.S) 

{•o  TO  bo" 

01030  VSO»v€jTC««? 

CAL'.  -JlllT  T tA.PLNSTPO. STKMlN.STMtAX.VSQ. 2500. .1*0000. . 

1PI.TSTK0.MI  SM!‘.«PLSMAT.TMMOUC.THHTMN.TH«r»lK,PPtOO»MtOMN.PeOMX. 

*MF  T A I C . ••  . » A . > I 

VFIIC"^**  CVSW) 

ThPOTkTmmOT IC 
»*ll  ■TmmOT 

P0t»'T  /03.Tm»oTIC.«LMSTKO.VEUIC*pLTSTKO.»PFOO.BETAIC  I 

■>o?03  fnmT  (•»».*‘mTh«0TIC»  .F».2.6m«LNSTF0«  .FB.2.«HVf<JIC*  *F0.2. 

iPHPLTSTKOa  .TK.2.PMPPE DO*  *Fd  • 2 .HHHFT  A IC*  .FM.2) 

00*00  C0«T1NUT  ( 

M»T(I®N 

»VI  k 


SiiVPQUTInE  PSETUP 
C 

COmfON/xFLOAT/a (500|/IFIXEO/IA(2001 
COMMitN/CMF/nfJtOOl/ICNF/HMSO) 

C 

0T-.FMSIOP  XMCUO) 

nfMf NSfON  OXMAdSI  .OYPA(IS)  ,0/PA (15) 

c 

FO>'IvALF«CE(ALF A.AI25J > , (BETA. Alio) 1 t (ALFA*. A (27) ) . (ACTA*. A (2D) ) 
Fn.nvALFNCE  (ALF0.AI2P)  > . (hFTO.A<30)  ) . (SALPH. A ( 31 ) I , (CAL PH. A 132)  ) 
FOITvALFNCF (S-ETA.A(33) ) . (CHE T A . A ( J4) ) 

P'ldl  VaLFhCF  ( ALFA  IC.m  (*2) ) 


F'Xtl  VALM.CF  (Phi 

*A  ( 1 

) ) . (TmKT 

*A(2 

)).(PSI 

.A<3  )). 

1 

(PmIm 

• k (4 

) ) . (TmETN 

. A ( S 

. (PSIN 

• A (6 

) > * 

r. 

(Til 

* A ( 1 6 ) ) . (T21 

. A ( 1 7 

.(Til 

• A(lM 

) ) « 

3 

( T 1 2 

* A ( IV 

) ) . (T2? 

.A  (20 

• (T  32 

.A(2l 

)). 

A 

(T1J 

.A  (22 

)) . (T21 

• A (23 

* ( T33 

.A  (2a 

1 ) * 

b 

(MM 

• A ( 37 

) ) . 1 VM 

.A(3m 

.(MM 

• A ( JV 

>)  . 

• A | jS 

) ) • ( («  MMH 

.AO* 

f OllIFALC^Cf  (V* 

.A(*»A 

) ) . (VC 

• A(ft» 

. (VO 

. A ( 6* 

) . 

1 

(VFE 

• A (67 

) ) . (VT 

* A (MP 

• (VOW 

• A(70 

) ) . 

2 

(VMM 

.A  (72 

) ) . (VFP 

• A ( 7 3 

• (VON 

• A ( 74 

)). 

3 

( VF  '■> 

* A ( 76 

) ) • (VMM 

• A 1 7* 

• (VCH 

»A  (77 

) ) • 

A 

(VOF 

.A  (7m 

>1»(ALT 

.A  (M3 

. ( (LON 

• A IMa 

)). 

s 

I TI.PT 

♦ A(m6 

))*<CLAT 

. A ( H7 

• (0 

• P(*7 

1) 

FOO f VALENCE (HMMtA ( 103) ) .(MM.4(10N) ).(NTV.A(10*)). 


C 
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C 


C 


c 


c 


1 

2 

3 

* 

s 

6 


(COURSE.*  ( 11  0>  I . (XLATR*A(111)  1 . ( XLONR* A ( 1 12)  I « 

(Ct*TR  *4(113))* (SThETH.A (114) ) , (CTHCTB.A)l 15) > * 
(XIXX  *A(116))*(XIVV  *4(11?) ) • (XIZ2  *4(114))* 
(XIXZ  ,4(119)). (XMC(1>. 4(1201). (XMASS  *4(130))* 
COT  1 *4(16?) >*(DT2  .4(1681). (OT3  *4(166))* 
(mp  *6(1T0>)*(4 (364) .RMOZ) 


EQUIVALENCE 

1 (MC6  .4(176) )• ( W4 IT  *4(177))* (WHO  *4(183))* 

2 (SOUMO  *4 (20V) ) . (PHI1C  *4(230) ). (THETIC*4 (231) ) • 

3 (PSIIC  *4(232))*(ttAMVlC.4(233))*(84MHlC*4(234))* 

4 (pa 1C  *4(?3b) ) • (OB1C  .4 (236) ) . (R41C  *4(237))* 

6 • (VEOIC  .4(236)  )•  (XlC  .« (239) ) • (VIC  *4(240)) 

F0U1V*LFNCF(XP.4(225) ) . < VP. 4 (226) ) * (ZP*A (227) ) 


EQUIVALENCE  (MIC  . 4(241)). ( 8417 IC* A (24?) ) . ( XIXXIC *4 (243)1  * 

1 (X!TVIC.4(244) ). (XIZZ1C.4(245))*(XIXZIC*4(266) ) 

f OUI VALENCE  (4(368)  .024)  . (4(359)  *H20) 


EQUIVALENCE 
rout valence 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EOuIVALENCC 

EQUIVALENCE 

Equivalence; 

Equivalence 


(4(0375) .XMCC1  ) 

(4(0376) .XNCC2  ) 

(4(0377) ,xmcC3  ) 

( A I 0378 ) • XMCC4  ) 

(4(0379) .XMCC5  ) 

( 4 (0360 ) « XWCC6  > 

(4(0381) .XMCC7  ) 

(•10362) .EXNX  > 

(•(0383)  .EXW  ) 

(4 (0384) «EX-Z  ) 

(UMIC*A<40o) >.(VBIC*A(a07)),(98IC«A(400)> 


EQUIVALENCE 

1 

EQUIVALENCE. 

EQUIVALENCE 


I IElaT • 1 a (6  ))*(IDU  *14(61  ) ) • ( 1DT2  *14(62  )). 

(IUT3  *14(63  ))*(1C0  *14(64  )) 

(10,14(65)) 

(ImACN, I A (114) ) * ( XMACH* A (71 ) ) 


EQUIVALENCE  (4110)  *SPHI),  (4(11)  *C*»MI) 

1*(*(J4) ,SNSt) * (4(15) .CPSII 
2 * (4 (12) .STMT) « (A (13) «CThT> 

EQUIVALENCE  (*<7) .PM ID) • (4(6) , THEO) » 14(9) *PStO) 

EQUIVALENCE  (4 (43) . PLN ) . (4(44) ,PLH) • 14(45) *PL»E 
EQUIVALENCE  ( IEijlP.  1 4 ( 1 64 ) ) 

EQiiI  VA(  AftCF  ( I NOE  X 7 .14(110)  ) 

EQUIVALM  CE(OE.PA)l)  .4(104)  )*  (OVPA(l) *4(210) ) • (0ZP4 ( 1 ) *4 (257) ) 
equi VALE  nCE (94170*4 (261 ) ) « (684 TIC* A (246) ) ♦ (nEUELIC* A (247) ) 
EQUIVALENCE (*STQft£. 4(262) ) 

('*74  0ME6/  • 7 2Q6SC-4/ *R£/2. 089VC  7/ 


N4ETUM  INITIALIZES  PILOT  POSITION  OP  AIRCRAFT  C.6.  POSITION  AS 
lESIPCO.  INITIALIZES  L0N(« I TUDC *LAT i TUDC • VN, VC *VO, VC€* VNP. VCP.VQP* 
V4  4. VEINhT, NASS. INEPT  145, PSlM,TMETP*PMlN*PSI*TMtT, PHI *S1NC5  AND 
COSINES  OF  PSI«.TmCTp,phIP*T11  ThtEQUftH  T33*  4N0  LOO*  CYCLE  TI**(ES 


4-10 


uuuuuuuuuuuuuuuuuuuuu  uuu  u u O u U U t'UO 
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In  MILLISECONDS 


INPUTS  PSIIC<TM£TIC.PMlIC«0AMvlC.0ANHlC.XlC.rtC.HlC«P8IC.0BIC. 

PMIC« VEOIC. MAI  TIC » XI XXlC. XI YVIC. XI7ZIC.XIXZIC* TMETBN. 
XLATN.XtONB.MN, Til  ThNOUAM  T33.XP.YP.7P.VNM. VEM.VOM. J0T1 . 
IDT?. IDT3. ICQ. IPC AT 


OUTPUTS  PSI. The T*AmI .NSIN.TMETH.PmIP.CLATB.STnCTR.CThETN.NN.MBP* 
MCA. ACT. NT V. XLAT • XLON. CLAT. Pa.QM.BO, VCO.VT. SOUND. BMO.VN. 
VE.VO.VEE . VNB. VEN . VON. VMM. MA I T . XMASS. XI XX . XlTY.X I XZ. 
XMCIll  TMMOUGM  XMCI10) .OTl.OT2.OT3 

1 0*1 

• •••iNt T t ACI7E  PSt.TMET.PMt 

•>si«nsiic 
Tmft*THC  TIC 
PmT*PmIIC 
P<tB*PSl*l)?B 
TNrTP*TMfT»D2N 
PmT*»*PMI*0?P 

'••••IN t T I AC  1 7F  SINES  ANO  COSINES  OP  PSIW.THETR.PHlB  • TBANSPOBNATTONS 
CALC  HTBANS 

••••  INITIACI7E  SINES  ANO  COSINES  0?  THETBH 

STmE Tk«SIN  CCOUPSE) 

C t h£  T w*  COS ( C OupsE ) 

ClaTnaCuS JXLATB) 

.*••!., ITI*LI/t  ALT.MPP.XCAT.XLON  UCt»*l  BEANS  INPUT  POS.  I.C.S  AT  C.6» 

P9*PF*MH 
IP(IC<,I  10.10.20 
omlo  HPaSf-IC 

At  T*'.mw»mp*T1  J*xP*T23#VP»T33*2P 

Hro*ALT-MM 

SOMALI  l*XP.T2l*YP*T3I*?P 
SiiMb«TU#XP*YP*T22*?P*T32 
XD'IMm  A I (.  •CTMpTP*SUMA“STMf  TM*$IIMU 
Tn*l-«r|C-LTHPTM#SUMN.STHETP*SUNA 
AO  TO  JO 
00020  MCO«mIC 


A-II 


r 
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ALTbhCG«hR 

mpobnCC.-U3*XP-T*3«YP-T33*ZP 

xoiihbxk  i ! 

yohmbYIC 

00030  >LATB<»nilM*CTMETR-VDUM*STMETR)/RR*XLATR 

XI.  ON  a ( ApUP*STHETR* YRUM»CTMETR ) / (CL ATP*RR)  *XL0NR 
CL* TaCOS (XLAT) 

PTVbhE* ALT 

^••••INITIALIZE  PH.QR.RG 
C 

C IE  If  UI.Ral  • THE  INITIAL  OATES  AHE  INPUT  AS  EULER  RATES. 

c PMir  utplacfi)  bv  phic.  theo  replaced  hy  oeic*  psio  replaceo  by  rbic 

c I 

IF  (lElILP  .EQ.  0)  80  TO  7V7  * 

c 

C ASSUHrn  FULEP  PATE  SETUP 

PHT»aPHlC*02P  I 

TME»aUhlC*D?P  1 

RSlDaNHlC*02B 

PAaPHll>-PSIO»STHT»PL«  1 

LAaTHtl'*CP**I  »PSI  0#SPMl*CTHT  »OLB 

P-»aPSlO»CPHI*CTMT»THED*SPMl*RL«»  i 

(•0  TO  7Vb  f 

C 

00797  Continue 
C REGULAR  input 

PuaPP]C»0?B 

0babfcIC*U*R 
A«4aPPjC*f>'R 
TeO  CO'iTI  N*Jt 


c 

C INITIALIZE  RN07 

C 

CALL  HAT NOS 

C 

Caaaaa«TMTTIALm  VELOCITIES  ERON  EQUIVALENT  AIRSPEED  IN  KNOTS 
C.aaaaayTLOCITY  INITIAL IZATI 0N****» 

. * 


C IE  IviACMBi,  THE  Input  VELOCITY  VEQIC  is  IN  MACH  MUMMERS 

c 

c IE  IMACHB-I  . the  VELOCITY  IS  INITIALIZED  in  root  axes 

c 

C IE  THE  AIRCRAFT  IS  ON  THE  GROUND.  VEotC  IS  THE  GROUND  (TAXI)  VELOCITY 
C 

C IE  The  AIRCRAFT  IS  AIRHOHNE.  VEOIC  IS  THE  EQUIVALENT  VELOCITY  (WITH 
C RESPECT  To  THF  AIP  MASS). 

C 

C GAMVlC  AND  GAMHic  a«E  THE  INERTIAL  VELOCITY  VECTOR  OIRECTIONAL  ANrlES 
C AM*.  AS  SUCH.  IGNORE  VARIATIONS  IN  THt  VINO  MAGNITUDE  ANO  DIRECTION. 

C 

store»u.i»v?av*so»T(rho/rhu?) 

tF  ClMACH)  SJ.S3.53 

53  OUMaVERI C* (SOUNOMmACH* I 1-IMACH) /STORE) 

C . J 

Ca****lNITIALI7F  SINES  AND  COSINES  OE  GAMV  ANO  6AMH 
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C 

rt***V«GAMVJC»U2R 

SOVaSlNIGAMV) 

COVaCOSIGAMV) 
i;*mm«GA*'«I  C#U2P 
fombSIn  (GAmm) 

COMaCO*  ( PAMM ) 

C^*<?.»(Vl)a«<;GV-VCR»C8V*SGM-VNX»C6V«CGH) 

CC«VKa»*?»yfta*»2*V0W**2-0UH*«2 

*A«Cd**2»«.*CC 

TF  (AA|4?<44«44 
42  VTa-.**C» 

r,0  TO  50 

44  </Ta*b4(>CX*S<JPT(AA)  > 

40  y*i»VT»CfiV*CftH 

yr(r«yT»cNv#SOH 

VOa-yT»SBV 

WDaVN-vhB 

VfruaVtt-VFtf 

yo><ivo«vn» 

GO  TO  52 

000*1  y>ia»TU»nP!C»T2l*yBIC*T3X**(8IC 
VFBmrU*UMIC*T22*ybTC*T32«WHIC 
VOOmT  i 3«(ih  I C* T23*VHIC»T 33*'<*BIC 
C 

VNayNM*yNb 
Vff ■vtM»V£a 
•OaVDM*VUM 

C 

VPOICaiTOOFaVl«T<VNI»**2«ve(»**2*VOR*a2) 

C 

*»40aywaair«VFF«*2 
VtaSOBT (P*0*VO»«2> 

VOaVIHT IPAO) 

c 

(•AlVtC»0.0 

'•AVHfCaO.O 

IF|yT.K<).u.»  BO  TO  52 
<va«v  tc**T  AN?(-yo.  vo>  »R2D 

Jr (PAU.M..0. > GO  TO  5* 

04  ^iH.a4T4H?»VKF.yN)at<20 

SOVaS  U«  <{-«»"vtC*02ri) 

CO/aCOS<B*My (C*0?R) 

SiiwaS  t'4  (<i4<4H  TC*02R  t 
Co«ari)S  (>.a»  mIC»02«) 

c 

04?  COnTIhllF 

VlsVJM  ( VFRb»2.vM»b*2) 
fatvl.to.O. .Ort . IROCxT «LT .3)  GO  TO  54 
GO*  J 0»-* T AN?  I VU . y 1 ) *57 . 3 
TuFTICa4lFAIC*GAMlQ 
044  FO**T  IM'F 

IFIIFL4T)  Ml.aO.SS 
55  v*ayft 


I 

V 
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60 

6*> 

C 

c 

c* 

c 


c 

c 

c 


c 


c 

c 

c 

c 

c 


V£«VFE»OMER*r7V*CLA7 

COKTINOt 


IhJT1*LI  iff  NAI7.MASS  ANO  INER7IA  COFFriCICNTS 

WAl7IC*t.AlTO**FtlELIC*WNA7lC*NSTONE 
W A T Ta*A I T J C 
»4A«Sb*A17/32>2 
X TXX.XlXXlC 
XIYY«XIYV]C 
XT77*XI771C 
X T X7>X 1 X7 1C 
7»-xI 

0*1 . / ( » 1 xx*x I ZZ-7> 

X*«C<1>*< (x1yv-XI?Z>*X122-Z>*D 

X-C<*>*«*IXX-xIvy»XI2Z>*XIXZ*D 

x«4cn)«xi72*n 

x«*c«*»*xix7*n 

X*C(7»*1./XIYY 

7-C  («■>«<*  !77-xIXX)*XMC(T) 

x-e  i»>i« (xix7*«Mr « 7 > » 

JMC  (»il*<AlYY-Xl2?-XIXX>*XlX2*D 
(XIXX-XIYV>*XIXX*Z)*P 
X«*C  ( ) 0)  *X  I X X •!* 

XNCC1  ■ XMC»*»*Fxnx  - XMC  (3>  *EXHZ 

XNCC?  ■ X*C  <71*ExNK 

X*0C3  • X«<C(7>*ex»»7 

X*r.c*  * x*C  <10>*EXNX  - XMC(*»*EXNZ 

XMCCS  ■ 7*4C<3l«fXMV 

X-4CC6  ■ XNC(4|*AXNY 

XMCC  7 « X«C<10»*fXMY 


'INITIALIZE  LOOP  YRAMt  7IMES  IN  SECONDS 


071*. 001*1071 
OT?*. 001*107? 
07  **.001*1073 


tall  kviloc 

CALL  HAlFsf7«072> 
CALL  " ATK1S 


MAYf  SltPF  7MAT  BLOCK  DA7A  IS  CALLED  IN 


PK7URN 

FW) 


nrnnonnonono  or»oor»or»oor>ooo 
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SURROUTINE  ROUlET  (NCONT  »C  l .CM  l Nl » CMAX  l «C2 .CMIN2 .CMAX2 
It  C3.CMtN3«LMAX3.C*.CMIN4,CMAX4 

2.  CS.CMIN5.CMAX5.C6.CMIN6.CMAX6) 

c 

c R.  MCRARL4N0  -CSC-  OCT.  19.  1972 

c modified  Fit-  ? l.  1973  ny  r.e.  mcearlano 

C TO  (A)  ESTAHLISH  OM*r  PCPCENT  OF  RANGE  AS  THE  PARTIAL  EVAL.  SIZE 
C AND  (9)  TO  PAPE  THE  LINEAR  TRIM  QUANT  HIES  EQUAL  TO 
C MHO.  V90.  AM.  PRO  RATHER  THAN  VND.  VEO.  AND  VOO  WHICH  DO  NOT 
c Pf  RM 1 7 TURNS.  IMPLEMENTED  EOR  360  JUNE.  T3  By  F.  WATSON.  CSC 
C 

Common/ xEl OAT/A (5001/IEI XED/ 1 A ( BOO  1 
OOHMON/ChF/r (2oO)/ICHE/IH(50) 

A HAS TC  ROUTINE  FOR  NULLING  THE  ANGULAR  AND  LINEAR  ACCELERATION  VECTOR 
MY  MANIPULATION  OF  THE  NCONT  C"S  (SIX  IS  MAXIm«jm). 

ITPROo  WILL  AUTOMATICALLY  RESET  IF  - 
AMR. ACCEL.  LESS  than  .0005  RAU/SEC2 
L IN. ACCEl.  • LE*S  THAN  .01  ET/SCC2 

ITOmcm  IS  TmF  CONTROL  SWITCH  FOR  THIS  ROUTINE 

ON-Tt-f— C.OOUM.  TOTH  IS  AUTOMATIC  IF  lHIT«l.  THE  CALLING  SEQUENCE.  IN 
THIS  INSTANCF  Is  IGNOIRED 

DIMENSION  STATE  (6) 

* O I Mf NS  1 ON  HOECKlS) 

or MENS  ion  Y?(6).H(6.6).0X(t>)<V(6) ,HTH(6.6) «W (6) .LM (6» .MR  16) 
DIMENSION  UOC(O) . OMC I (6) .007(6) «UZ(6) «QC(6) 
flfMENSION  CK  (6)  .CMlN(e>) 

DIMENSION  CONK  h) 

EO'iIvALE>CF  (A  (307)  «CONT  ( 1 > ) 

F ')•!  I V *Lf  NCE  (h(*1  J)  .UHU)  . (A  (41  A)  .VRO)  . (A  (415)  .WHO) 

E 0*1 1 V ALE  NCF  ( ITMA0.IA(166) ) .(IA(167) .IN) 

EQUIVALENCE  (IAI17V) .IREVAL) 

THF  ACCEPTANCE  CRITERIA  OROFR  is  - 
OHO.-RTl.PBU.URU.PHU.VHD 

AND  Only  ThR  first  TWO  are  used  for  grouno  trim. 


THE  Ooofp  for  state  IS  - 
oHII.OhO.RHU.uHU.VHO.wHO 


EOuIVALENCt  ( I A ( 21 ) . tEVAL) 

EOMIVALENCE (TGRA0.IHI31) ) 

Eotll  VALENCE  (ITRmCM.IA(UI)  ) . (ITRMP,IA(103J  ) . ( ITRIN.  I A ( 102)  ) 
1 • (»RU.A(65) ) . (090. A (56) ) . (RHO • A (57 ) > . (VND. A (BHI ) • (VE0.A(B9) ) 
? • (vOO** (VO) ) . ( ITRHOG. I A (23) ) . (AANVIC.A (233) ) . (PHI IC< A (230) ) 

3.  (Rif •* (MAI ) ) . ( IMIT.IHI 19) ) . (TRtTIC.A (231) I • (XNG.AI 184) ) 

4.  (I».C,T,  r*  ( JO)  ) . (IRGT.IA(ll)  ) 
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C 

FOilIVAlfNCC  (STATE»1).A(391)1 
rotlTVAUFNCF  <«LAu2.8(Bl) > » (PLAMl.B(RO) ) 

FOiHVALt-NCF  (MUfCK  (1)  «A(272) ) 

FOiiIVALEW:F(**»6.A(1»*5)  I. (ZPG,  A (256) 1 . < ICS. I A C641  ) 

FOlUVALEf  CF  (ZP.AC227)  ) • (XP.A  (2*5)  ) • (STMT. A (12)  1 « (CTMT.A(13>) 
F-JlllVACKNCF(ZNR,A(?ST)  ) , (B20.A  t JS»)  ) . (TMFTP.Alb)  ) 

C'JUI VAlMjCF  <IA(110)  . 1N0EXT) 

C 

nATA  rain/i. /.nhalf/io/ 

Oat a inew/o/ 

OATA  »5Ca(.F1/1./.mSCACF2/1./ 

DAT*  UOZ/O.OOUb. 0.0 1.0. 0005. p.01.0. 0005.0.01/ 

OATA  XIJK/.a/ 

c 

OATA  DmCI/6«.01/ 

01  a UHi; 

P2  • VBO 
01  » «5U 

lFUTwMCf)  10.10.60 
O0010  IF(ITP*P)  50.50.20 
00020  IF(JH)  1o0.1O0.3Q 
00O30  CONTINUE 

1 TBu»>0 

000*0  STATE (l)aPBP 
STATE (<f)*UHO 
STATE (3) apnp 
STATF  (a)  • 01 
STATE (51  « O? 

STATE (6)  « 03 

Iril-IT)  Al.4l.AR 

0AQA1  t-0  to  («7,aa«AS,aA. A3. a2).N 
0(042  (0'(T(0)»ro 
00043  C0«T(5)«C5 

OOQAA  COMT (* I »C* 

0004b  C9*'T(3>«C3 

oopaa  cnwT i*y*(X 

9QP47  CO“T(l)«Cl 
Onn»8  CONTINUE 
OOPSG  CONTINUE 

IF(IPEVAL.EO.O)  JNEwaO 
BE  TUP  I'1 

c 

•10960  CONTINUE 

IF(ITkmb)  70.70.63 
00063  IF(lHlT-lHlTP)  70.160.70 
C 

00070  00  7?  1*1.6 

»(T)*UOZ(l)/nOZ(T) 

00072  CONTINUE 
RAIE*1. 

TRPAUaO 

TSTFPaO 


C 
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C OPOliNn  TRI"  SfTuP 
OftCttO  P*mv IC«0. 

pmiiC»(<l»h?«H2o  » 

IMITP«1 

N«2 

fa? 

ZXaSOHT C ( ZPG-ZRO) < XNG-XRO) 

ThCT»»*T*K?( (ZNG-ZRG) «ZX) 

7mpTIC*R?0*TMETP 

STMTaSIUlTHPT**) 

CTMT*Ct»S(  ThET*) 

I*(ICG>  hi!.»2.8t4 

00062  *CTMT*  CXP-XRG) *STmT*HOECK  (11*1. 

f XJH  (2)  a*  lC*»4X-3. 

(•O  10  *»4 

0006*  «T rv.»i/ uuar. Tht-X««»STHT ♦MOCCK  ( 1)  «1  . 

C -<<('•(*)  *GtC**o*“3. 

0 nfihti  C<  ( <> > «»«ICPAx-CMIii*C2> 

71  • 

T«T-»i»»T*N?(Z1,SOPT(Z1»*2»(XNG-XPO)*«2) >*R2D  .Rl.A61»R20 
7?a7«.o-76M-  t • 

r.  *l M 1 ) aUlkHe  ( Z2.S0RT  (22**2*  IXNIi-xRO)  **2)  > PR20  «RL AMl*R2D 
C< « 1> ■TfTM*X-CH JN 1 1 ) 

I'Or  I ])».(•  1 

oor c/>*.oi 

GO  TO  1*0 

c mORpai.  TP  IP  SETUP 
00120  6«nCO-.T 
Ra4 

I«<|  TP*® 
oo  no  t*i.A 
ooijo  c«>«: ( i > «ooc i c 1 1 

00132  GO  TO  1 l.«h. 137.136.  133.134.133)  .N 
001  33  C«'C4)aC»«»X4-CPlM6 
c<*r^(*>i*cPtNft 
00 1 34  (.* (SI *CPAXS-0PlP6 
CPJ6(9>*CP|NS 
0013b  (.*.  (4)  *C‘*»X*-CMlN4 
CmI*  (<*)  bCpIM* 

00136  r<f  (31  »C'«**3-C«IN3 
t j»  »oipi 

001J7  C«  (?)  aO*Xe-CMlP2 
CPtN(2)aTMl*i2 
00136  ».*c11«CmmX1-C«IN1 
CmTM  II  aCPlNl 
901*0  iTPPpal 
1CV*L»0 
JjaO 

C PSTAH.ISM  STATE  VtCTO* 

00160  go  TO  (166. 165. 164.163. 162.161) »H 

0M61  0/ 14)  ■ 02 

00162  07(S)aMH0 

(10163  G?(«)  « ()l 

Or  16*  07(3I»P«U 

0014b  C7 (?)  a 1 1 3 


NAOC-TT026-30 


00166  07<1) “UKO 

point  bO?. COZtn .I«1.6> 

00*02  FORMAT (10X.TMQ7 (1»«  .6613.5) 

C ACCEPTANCE 
C 

ITPPOG-1 

t>n  20*  i«1.m 

1 f ( AHb ( OZ I 1 ) ) -OOZ ID)  206.20**206 
0020*  CONTINUE 
iroum>*o 
00206  CONTINUE 

IF (iTPfiOG.fO.O)  RETURN  . 

Of  l»l>  60  TO  11*6. 165.166*163.162. 161) *N 

00161  CC«fr>»tC6-CMlN(6))/CKC6) 

00162  PC<5)«<C*-CMIN(5))/CKIS) 

00163  CT(*I«<C*-CMIN(*J)/CK1*> 

00166  OC«3)»IC3-fMIN(3) >/CK<3> 

00165  frC«2)«)C2-CMlN(2)  )/«(*) 

00166  frC(l)«<Cl-CMIN(t) )/CK(l> 

00)90  IFIJJ)  200.700.220 

00700  if (TGM*|!.E0.1.»ND.15TfP.LC.25)  60  TO  201 
00  2lv  I«l.*< 

00210  V7  1 1 ) 6')7  II) 

FQSfrPaO. 

1)0  216  I»1.M 

00216  E»60P»£PSOM*«T2CI)#IMl) 

AO  TO  703 
00201  -FQSN60. 

00  202  J«1 .M 

00702  FRS0«cR5U* IQZ  C J) *61 J) ) ##2 
FOSOM 1« .6*f PSOP 
IF (FRSV.AE .FRSOP1)  I0R*0»0 
IFIlftHAO.tn.O)  ISTERsO 
PRINT  Sib*  F»50.ERS0P 

00515  FORMAT (lnx.oHERSOa  .613.5. 10H  ERSOP* 

IF  ( IfrMAti.EO.V)  BO  TO  200 
FRS«R»H»SO 
AO  TO  33T 
00203  CONTINUE 

IF  UNIT)  204.20V.21T 
0020V  (.0  TO  1216. 21b. 216. 213. 212.211) 

00211  CONT(«.)«C6 

00712  COnT lb) *C5 

00713  CO*lT  I * ) «C* 

0071*  CONT I J) »C3 
0021b  CONT<F)«C2 
00716  CONT(l)*Cl 
0O71T  CONTINUE 

STATE  Cl)»PHO 
STATFIOpONO 
STATE  «3)aRMf) 

STATE <*l  • 01 
STATE (bl  « 07 
STATE (6)  ■ 03 
C 


.013.5) 
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JJ«1 

C 

c 

irv»L»l 

C 

60  TO  310 

00220  00  l JO  lal.M 

00230  H(I.jJ)a(OZ(l)*v7(I))/OOC(JJ) 

C 

CC ( JJ)  »0C  C JJ) -OOC ( JJ) 

C 

JFdffiwI  2*0,2*0.290 
002*0  I*V»t  • 0 
C 

00290  CO.JTINUI 

C 

!'(JJ-«>  300.320.320 
C 

00300  JJaJJ*l 
I*V»L«0 

c 

0031 0 OC ( JJ) “OC ( JJ) *09C I JJ) 

I aaO 

c 

60  TO  390 
C 

00320  CONTINIIF 
'JjaO 
iNMal 
1FV*L"0 

iMal 

DO  330  Lal.N 
PO  3.30  Jal.N 
HTM<t«J»aO. 
t'O  330  1*1, M 
00330  HTMCI..JI 
C 

t»»l»'T  b0  3,  ||H( I. J)  .1*1.6)  ,jal,6) 

00903  200**7  < 10* .«M*<  f . J) a ,/.6<6 013.5./)) 

CAUL  "tov <hTM»m.OCT«L*«MM) 

109*0*1 

0*|H*1. 

IF(tNObXT.KO.l)  OAlNa.b 
C 

00337  COSTINUf 

IF  (JSTF^.f.T.O)  «0  TO  336 
«0  TO  336 

00330  00  339  Jal.o 

00339  r7(jf0f(j) 

0*330  COfTrii.fi 

DO  3*«  1«I»N 

V I T I a'J  « 

(i 0 3*0  J*|.* 

103*0  V<T)*V<I)>H(J.1)*VZ(J)*«HJ) 

c 


*-19 


I 
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On  3*0  l-l.N 
f>X  { I ) »0. 

on  3so  jb1<n 

00350  Dx(I)«OX<I).mTh<1,J)*V<J) 

ISTFPpISTFp.I 
I»  I ISTEP.Pf .2S>  IGRAO-O 
IP  I JGMAD.FO.U)  istep»o 
IF  UnOEXT.CQ.1  ) GO  TO  351 
no  TO  352 

00351  CONTINUE 

nCT»f.(l»l)*H(2.S')-n{2.1)PH«1.2) 

Ox  »?)■« l.»YZ(l)»HCl.3)-V7(Z)*H(l*l) l/(OCT*l.) 

Oxil  l■^-Y7U)•MC^.^).l.•Y2(^)•M(2.ln/(OCT♦l.l 
point  js3.0x (1) .ox(?) .y7(1) •YZizt 

00353  f 0O**PT  (lx  « ThDX  ( 1 ) ■ <F10<5<7H0X  lit)  ■ «F  1 0 ,5 • 7HY2  ( 1 ) » .F10.S. 

1 7hYZI*)»  .no. 5) 

00352  CONTINUE 

c 

c 

C xlJK  PPPCCNT  MAXIMUM  EXCURSION 

c 

05CALC • 
o*C»Lf  ?■  1 • 

XIJYP.N 

IP (INUCXT.eo.l)  XIJKO.2 
1)0350  on  370  I«1.N 
xxanxij) 

IFCXX-XIJK)  363.353.352 

00362  PSCALClPXl JK/XX 

r,0  TO  joV 

00363  TF(XX.XtJK)  J6A.369.3e9 

0036*  »*C*LE1«-XI JK/XX 

00.369  CONTINUE 

ir  tMSCAir i .lt.pscalczi  mscale2»*scalci 

00370  CONTINUE 

IF ( IUPAD.ro. 1)  AAIN60AIN6.97 
on  371  I«l. n 

00371  OC (1 1 «UC  < I ) .OX  C I ) •GAIN*PSCALC2 

C 

00390  On  395  1 ■ 1 .N 
XY«(JCU) 

IFJXyI  392.392.393 
00392  OC«I)»0.O5 
GO  TO  J96 

00353  IF(XY-I.O)  39S.39A.39* 

Off  39»  OC(I)«0.96 

00395  Continue 

IF(ImII)  396.A00.3V6 

00396  MIC»0CC2)*CYI2)»CMIN(?) 

T-FTIC«t»C«l)PCFCl).CMIN(l) 

MPINT  JvT.OCll) .QC<2> 

00397  FnMMAT(|X.7HMC(l)6  »F 1 0 .5. IX . THnc (?) ■ .F10.5) 

Pn  TO  *07 

9 i)a 00  CONTINUE 

60  TO  (AU6.AO5.AOA.AO3.A02.A01) tN 
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00401  CAaOC<t)*CK (ft)«CMlN(6) 

00402  C«»»OC<b>«CK  (*>»CMIN(5) 

00403  C4«oc<*)»CK»4)  »CMIN(4) 

00404  C3«OC(J)*CK(3)*CmIN(3> 
004 Ob  C?«OCCO*OU2)*CMIN(2> 
0 04 Oo  C 1 «0C  ( 1 ) «Co  ( 1 > *CMlN ( 1 ) 
00407  CONTINUE 

P'TUPN 
I NO 


SU*e0UTl*F  L00P2 

pOOIFIED  07  P.E.  HCr*»L*NO  JAM. 14*1474 


LOOP?  is  A COMBINATION  of  FSAA  ttASIC  SLOOP  1 AMO  SLOOP? 
LOOP?  CALLS  7HC  FOLLOWING  SUfcPOUTlNES— 

MOTFi  SUHROUTlNCS  IN  PARENTHESES  HAVE  SEEN  COOEO  IN-LINE 
CONTM? 

AFPU2 
WINOC 
(HIONOUFI 
HWOT  ATE 
' (HFTOTAL) 
ptwansfo 
(HVbkTICA) 

(MHOkt/ON) 

HVtLOCIT 

(■(ACCELERATION) 


IF  NllStOPl* 
2 


THIS  LOOP  USES  0T1  AS  THe  FRAME  TIME 

UT2 


A'ITmOP  : U.  JONES  -CSC- 


APWlL  1073 


CO  'HON/xFLO AT/A  (S00)/IFI XEO/I A ( ?U 0 ) 

C04m0h/ChF /H(200)/ICMF/1H(SO) 

OIHANStON  OXPA(lS) .OVPA(lS) .OZPA(lS) 

OI-FNilfiN  tTOUCH(S)  .VOFN(T)  . V|>Ht  (7) 

FO|iIV4|.E  NCF  (V».A  (4*4)  ) 

FOIIIVALFNCFCITOIICHI  l)  .14(10)  ) . (lHRAK*l<t(29)  > • < VOKN ( 1 ) . A (433 > ) 
FO'MVALFNCE  (FUXM.A(4V>)  ) 

FOHI VALENCE (VOKF ( 1) .4(440) ) 


I O'll  »*L)  NCE  (CPHI  *A  (Oil ) ) * (STHT  .A  (012)  ) . (CTHT  >4(013)1 


A-21 


sr^- 


,'V 
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C 


FOllT  vALENCt 

• 111 

• A <16 

) > • 

oonooi 

<721 

« A < 1 7 

>>.1731 

»A|1# 

>>•1712  .AI19 

>)• 

0OO902 

<T22 

• A <20 

) ) .<T32 

.A<21 

)>.(T13  .A  (22 

>>. 

000009 

* 

<723 

• A <23 

> > . <733 

.A  <2* 

> > 

V 

i 

EO'iI  VALENCF 

<Pb 

.A  <371 1 

• 

000002 

< Ob 

♦ A 1 30 

1 1 . (PEi 

* A <3V 

1 I « (PHD 

.A <55  )>• 

000003 

(QAD 

» A <56 

1 1 . (k«0 

* A <57 

n. 

00000* 

(VN 

* A 1 6A 

) 1 . <VF 

.A  <65 

) > . <V0 

• A <66  >>» 

OfioOOb 

(VtE 

• A <67 

) 1 

EQIJIVALFNCF  (0XP*(1  I .A(16*>)  . (DyP* ( 1 > . A (210) ) . (DZPA ( 1 ) . A (257) ) 
EQUIVALENCE  <*PSI.A(1*)  ) t (CPSI . A(1S>> 

EQUIVALENCE  (XP.A (225)  ) . <YP.A(226)  ) • (ZP.AI227)  ) 


EQUIVALENCE  t I'.t  AP  • I A ( 1 0* ) ) 
FOII J V*L  t ^CF  (.IAIT«A(17T)  ) 

toil  i valence  ustat.  jHifcZn 

E Qul VALE  NCF INCH* • IB  1 22) ) 

c 


EQUIVALENCE  1 *LTO  .At  hO)>.<AlT 

000002  (CLAT  .A<  87)).(VNi> 

000003  (VED  . A ( H9  n.tvou 

0OO00*  t AY  . A ( 02  D.tAZ 

000006  <Arp  «A  ( V6  >).tA2P 

000 006  (BTV.A(IOV)  > • <XHA«tS.A<130)  > 

» A ( #3)) .(SLAT  . A ( 66)). 
. A ( 6b)). 

.A (90  ) ) . ( AX  * A ( VI  ))• 
.A (93  )).(AXP  .A (94  ))« 
.A (V6  > ) • (6  . A ( 97)) . 

V. 

Mill  VALENCE 
onoool * 
oonooi 

000003 

(FAX, 
< F t X . 
<E«X» 
<FTx. 

A (136) ) . <FaY» A 1 137) ) . (FAZ. A ( 136) ) . 

A<1 3V) 1 . <Ft V »A<1*0>>. (FEZ . A<1*1>). 

A (1*2)  ) • (F(.Y « A 1 1*3)  ) . (FAZ.AdA*)  ) . 

A < 1*6) ) . (FTV.Atl*6) 1 • <F7Z«  A ( 1*7) ) 

£ 

EQUIVALENCE 

000001 
f . 

<fn 

<F« 

•A(l*tt)).(FE 
.A ( 151 1 ) 

. A ( 1*9 ) ) . <F0 

. A < 150) t • 

E QlJl  VALE  NCF 

unoooi 

000002 

000003 

IT  At 

<tel 

(T6l 

ITTl 

•A (155) > . (TAM 
.*(166)). (TEN 
.A ( 161 > ) . (T0M 
•Atl6*)).(TTM 

* A ( 166) ) . (TAN 
« A ( 159) ) « (TEN 
. A ( 162) ) . ( TON 
.A (165) 1 . ITTN 

.AI1S7I 1 . 

. A ( 160) 1 • 

•A ( 163) ) . 
•AI166) ) 

EQII I VALt'  NCF 

<0T1 

.A (167) ) . (DT2 

• A < 160 ) ) 

c 

FOiiJVALFNCF(HK,AU70)> 

rom  valFMCF  <HCO.au  76  J > . (ImOQE.IaiI)  ) » UFLAT.IAIo) ) » urrci.u<7) » 
EQUIVALENCE <IT®IN« I A (102)  >,  <N4UN,tA(10S>  ) . (NUSCO.  I A (160)  ) 
EQI>IVALtE'CF(VX.A(200) >« (VV«A(201) ) 

EQiilvALE  nC.F<wfiiFL*A<2aV)  ) t (w«aT.a<250)  I • < 
oooooi  watto.a  <r»i n . <*sto*e.a<262i i 
c 
c 
c 

DATA  H.Tt/16.1/ 

I/A7A  TS/0.0/.(M»F«/.T26«5E-*/ 

c 

c 

D71»DT2 


*•*2 


i 


oouuuuuuuuuuu  uuuouu  uouou  o oouuuuuuuu  uuuo 
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D?LTM«.b»Ota 


• CALL  EAST  CONTROL  SUBROUTINE  • 


• CALL  EAST  AtNO  SUHPOOTinE 


CALL  PILOT 
call  cohtpe 
CALL  EnC-IRE 
CALL  AEpOJ* 


• CALL  TUPPULENCE  SUHQOUTINE 


CALL  PINOC 


• T«»  rOLLOWtur,  15  THE  EQUIVALENT  OE  -BTOMQUE-  IN-lINE  COOEO  • 


ir<j*EAp)  1.)'2 
1 K,r,  o. 

f sv»0. 

FA7a0. 

tal»«» 

T A“*0 • 

TS'i*0  . 
b»  TO  3 

? CALL  «»e»PS 

' CONTINUE 

• Tuts  PORTION  CALCULATES  TOTAL  TORQUE  IN  HOOT  A*ES(L»M*  ANO  N> 

• 

• Inputs-  TAL.TAM,TAN.TCL*TtX«TEN*TOL*TOH*TflN 

• C>tT»uTS-TTl  .TTu.TTN 


TTL«TAL*TEL*T(»L 
ttu«t*n«tep-tah 
Ttn«t  an*te n»  tun 


• CALL  SUHPOUTINE  TO  CALCULATE  patational  • 
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• *CCPLe»»T10NS. VELOCITIES,  and  angles  • 


CALL  RROTATf (DT2) 


• TwF  FOLLOWING  IS  THE  EOUIVALENT  OF  -RETOTAL-  COOEO  IN-LINE 


• COST  ION  CALCULATES  total  FORCES  IN  BODY  AXES 

• l*i»UTS-  FAXtFAY.FA2*FEXtrEYfFC7^GXfF6r#FCZ 

• OUTPUTS-  ETX.FTY.ETZ 


FTXaFAA*FEX*F6X 

f tv«fay*eey*egy 

FT7aFAZ*f EZ*EGZ 


• CALL  SUBROUTINE  TO  CALCULATE  STANOARO 

• TRANSFORMATIONS,  ANO  SINES  ANO  COSINES 

• RMI«  THETA,  ANO  RSI 


call  htrans 


• T-F  FOLLOWING  Is  the  eouivalent  or  -evERTICA-  IN-LINE  COOEO 


• This  PORTION  CALCULATES  EO  ano  VOO,  INTEGRATES  VOO  TO  GET  VD, 

• CALCULATES  alto,  INTEGRATES  ALTO  TO  GET  ALT,  CALCULATES  HCG,HwEEL 

• 

• Inputs-  e tx.fty,ftz.t13«T23.T33«fg.rtv*ve. vn,xmass*hr, iflat* Imooe 

• outputs-  vod.vd, alto, alt, hcg*fd»hwefl 


• c 

• c 

EO»Tl J*FTx*T?3*FTY*T33*ETZ 
wa I TPMAtTO»w«AT*MFUEL«WSTORE 
vnaSSphA IT/G 
VV>afFD«F(,)/XHASS 
If ( I flat ) 20,10,20 

NOTATING  EARTH 

0<*0l0  VOOa-  (VE*»2»VN»a2)/RTV»V00 
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00020  IFtlMOOE)  30*90**0 

c 

00030  VOOPaVOI) 

VOPaVU 

L‘»LTHaO.S*PTt 
00  TO  VO 
C 

oon*o  irttri-cn  5o«3o*90 

0050  VOevO  • DELTH* (3.0*VOO-VOOP) 

VOONaVOO 

ALTbALT  - OElTH*(VO*VOP) 

V OPayO 

40  ALTOa-VO 
►CObALT-MP 
C 

c 

c 

c •••#*•**••*••••••••*#••#••*#••#••••##**#«*•«•*••••••***%**•**••••# 

C • FOLLOWING  IS  EOUIVALENT  TO  -BHOPIZON-  IN-LINE  COOEO 
C •••••••••••••#*•••••••••#••••••••#•##•**•*••••••*••••••••••••••••• 

c • 

C • Tmjs  portion  calculates  pn.pe .vno.ved* integrates  TO  GET  VN.VE. 

C • CALCULATES  vee 

c • 

c • 

C • INPUTS-  TII.T2I.T3I.TI2.T22.T32.PTX.rTY.FTZ.XNASS.PTV.SLAT.CLAT* 

C • INOOE.IPLAT.IPPCI 

C • ' 

C • OUTPUTS-  PN.rr.VNO.VEO.VN.VE.VEE 

c 

Pm«t 1 l*P  TX»T21*PTY*T31 *PTZ 
PEaTU*PTX*T22»rTY*T32*rTZ 
TENPal./XPASS 
IF  ( IPL*T)  200.100.200 
C 

C**«*«aPOTAT  IM*  p APT". 

C 

109  TL*TsSLAT/CLAT 
TPwPlal./ATV 

VNOaFN*TF  PP« ( VN*V0”VE##2#TLAT J *T£4PI 
vro«r£#TPNP. |VE*VO*VN*VE*TLAT) aTEMPl 
GO  TO  300 
C 

C*####pl*t  Eonth 
C 

200  VNObFN«T£NP 
VEOaFE'TPNP 

300  IF(HOUM  *00.700.300 
00*00  VVfiPaVNf) 

VEOPaVEd 
GO  TO  700 

Sofl  IPMFPCn  000. 400*700 
00*00  VNBVN  ♦ UELTH* I 3 • 0* VNO- VNOP ) 

VMOPaVNO 

VEaVP  ♦ Of LTH*( S.OayEO-VEOP) 
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VfQPaVED 
Ton  vrc«wC 

FT*laFtX»FAx-MAIT*STMT 
lF<AMStFTXl)  .GT.ABS(F6X**I  I 00  TO  702 
TF(I*mak.EQ.1.ANO.ITOUCH(2).EO*1*AND.ABS(VR>.LT.2.>  60  TO  701 
f-0  TO  702 

0701  VN»Vt>RK(l) 

VFaVOKF  ID 

VFf aVt 

0702  COMTlNIjf 

1 F ( 1 FLAT ) 900*000*000 
C 

C»*»*«AOTATlNr,  EARTH 

C 

300  VFF«vt-OME6*PTV*CL*T 
900  CONTINUE 

VXaVN*C*>SI  »V£*SPSI 
WavE»CPSI-VN*SPSI 

vnc  bwua mid «cp«i *vdkE ( 1 ) *$PSl 

VRaVX-VDR 

C 

C *....»»••••••••••••••»»»•»••••«**»•••••*••*• 

C • CALL  SUBROUTINE  TO  CALCULATE  INERTIAL  VEL.* 

C • W.K.T.  INFRTJAL  HI NO  COMPONENTS.  AND  • 

C • MOOT  AXIS  VELOC1TEIS  0,9*  AND  H • 

C 

c 

call  bveloc 

c 

c •••••«•••*••••»•«•••••*.•••*•*••*••••*•*•»»• 

C • CALL  SUBROUTINE  TO  CALCULATE  QUANTITIES  • 

C * RELATIVE  TO  ALPHA  ANU  META  • 

C •••*•••**••••«•••»••*••***»*•*«•••*•»»»••••*• 

c 

call  balfpetiot?) 
c 
c 
c 
c 
c 

c ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••• 

C • Tmf  FOLLOWING  is  EQUIVALENT  TO  -B ACCELERATION-  IN-LINE  CODED 

c ••«••• 

c • 

C • This  "OPTION  CALCULATES  BOOT  AXIS  CO*  ANO  PILOT  ACCELERATIONS 

C • 

C • 1MPUTS-  V0D.XMASS*F(J.T11.T21.T31*T12.T22*T32*T13.T23.T33*VND.vED. 
C • 

C • PH,OM*PH*Pbn*OHD«RBD«XP*VP,ZP 

C • 

C • OUTPUTS-  AX,AY«A?«AXP*AVP*AZP 

c ••••••••••••»•••••••••••••••••••••••••••••••••••••••••••••••••••••• 

c 

c 

AXaFTX/X"ASS 
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*r«rTY/*»**S5 

*7»rrz/*«*»ss 

'PfLOT  ACCELERATION 

tPanxPAdbl-OXPAlb) 

VPaQYPA ( 15) -DTP* IS) 

7PaOZPA (IS)-OZPA (9) 

Ax®aAX- («N**?*QB**2) «XP* (PB*0B-HB0) #YP* (PBPRH*0»D)  »ZP 
AVO»AY» •XP-(RB**2*PR**21 *YP« (QB*PB-PHD) *ZP 
*7®aAZ* (PP*PB-UB01 *XP* (QH*MB*PR0> *YP- (QB**2*P8##2 ) *ZP 


• CALL  FAST  USFP  UTILITY  SUBROUTINE 


IF  < jsTAT .£0.0 ) 60  To  3000 
CALL  SH04 
3000  CONTINUE 


Return 

EnQ 


SUBROUTINE  LOOP3 

0.  JONES  - COMPUTER  SCIENCES  CORPORATION 

xOOIMru  BY  N.f.  MCFAPLANO  JAN.  14*1974 


COMM0N/XFLOAT/A(S00)/TFIXE0/lA(200> 

C 


EQUIVALENCE 

(A  141)  f XLONO)  ♦ ( A (t*2)  t XL  ATD)  » < A ( 04 ) . XLON ) • 

2 

(XLAT 

• A(b5  ) ) ♦ (SLAT 

•A (66  ) ) • (CLAT 

• A ( 87  >). 

3 

(MTV 

•AllOV) ) • IF6 

•AI191) > • (WAIT 

• A ( 177) » 

EQUIVALENCE 

(Til 

• A(l»  > > • (T2l 

• A (1 7 ) ) t (T31 

• A(18  ) ) • 

1 

(T 12 

• A (19  )>.(T2* 

* A ( 20  ) ) « (T32 

•A(21  )). 

i 

IT13 

•A (22  >>.(T2J 

.A (23  ) ) • ( T33 

•A (24  ))• 

3 

(XLON 

•A (04  ) ) i (XL AT 

* A (86  ) ) « (NVEEL 

• A ( 1 02) ) • 

4 

(XPR 

.A  1 103) ) • (run 

. A ( 1 04) ) . (MPR 

• All  09) ) • 

9 

(ONR 

t A ( 1 06 ) ) • (OEM 

< A ( 1 07) ) • (RR  • 

A ( 1 06) ) 

equivalence 

(XLATR 

lAllllll . (XLONR 

• All  12) ) • (CLATR 

• A ( 1 1 3) ) • 

I (SThETP. 

AllUlli 

(CTNETR.A(llb) ) , 

(XC6.AU74)  ) • 

O U UUUUUUU  U O UUUOUUUUUUUOOUUUUU 
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3 

(VCG 

, A ( 1 T5 1 1 . (HCb 

• A ( 1 TGI  1 « 

3 

(GAmv 

• A (3S 

) ) . (GAMH 

. A ( 3b  )l, (PL 

.A  I AO 

)). 

A 

(OL 

• A ( A I 

11 . <RL 

. A ( A2  »),(P L8 

• A(A3 

)>  . 

S 

(OLR 

.A  (AA 

) > . (RL» 

•A (AS  )>.(VN 

» A (6A 

1 1 

fouivalence 

eve 

,A(6S 

> > . (vo 

.A  (66  1 1 « ( VEE 

.A  (67 

>). 

) 

< VT 

» A ( 68 

) ) • (VG 

. A (6V  I ) • (VNR 

.A  (72 

1 1 . 

2 

(VER 

.A  (73 

) ) . (VOR 

. A ( TA  II, (SLAT 

,A(tf6 

1 1 « 

3 

(CLAT. 

Aiern. 

(PTV.AU09)  ) • (DT3.  A ( 169) ) 

FOUIVALENCE 

(IFUAT 

. IA(D)  1 

FDiiIVALFNCE 

(IHOOC 

.IA(D) 

. (IFFCI. 

I A ( T 1 1 

FOUIVALEKCE  (INalG3.IA(8V> I 
1 » ( A(«3I  * ALTI 
FOUIVALF  NCE  (A  1130)  .XMASS) 

EOUIVAIFNCF  (XR.A  (2251  J * (VP, A <226)  I » (ZP.AI227)  ) 
FOUlVALENCF.  (NUSFO«IA(ibOI  ) 

F OUT VALENCF  |Ot?.A(JfcH)) 


data  ts/o./*re/2089b906./ 


NuSFO»l 

DT1«DT**NUSF0 

IFFC1»0 


caul  bathos 

•••••tuts  pout  ion  of  the  program  calculates  Radius  to  ce< 

•••••gravity  force 'Latitude  and  long- 

•••••IT'IOF  COT.  INTEGRATES  TO  GET  LATITUDE  AND  LONGITUDE.  AND  CALCULATE 
•••••StNF  AND  COSINE  OF  LATITUDE 


•••••inputs*  hait.vn.vee.alt.imode 


•••••OuTPUTS-wTV.Pb.XLATD.XL0ND.XLAT.AL0N, SLAT. CL AT 


RADIUS  AMD  GRAVITY  FORCE 

rtvbalt.rf. 

f r»haIT* (PF/oTV) »*2 
GaFG/XMASS 
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C 

C«»*«*L*TITUOr  ANO  LONGITUOE 

c 

XLATO«VN/»TV 
XLOMO»VEE/ (CtAT*pTV) 

IF(ImOOE)  10.30.20 
00010  XLON0P»XLON0 
XLATORaXLATO 
OFLTH»0.b»OTI 
GO  TO  30 

00020  IFIIFFCI.F0.1)  <*0  TO  30 

XLON»*LON  ♦ OELTH*(XLONOaXLONOP) 

XLINOPaXLONO 

X1.»T«XLAT  » OFLTM*(XLATO*XLATOP> 

XLAT0P»X|.AT0 
00030  Sl.ATsSlN  ( XL  AT  > 

CL A TaCOS (XL AT) 

C 

C 

c********* ••••••••••••*•••**•••*•********•*•*•*••••***•*** **••*•***••••• 

c 

C..»**TMTS  PORTION  OF  the  PROGRAM  CALCULATES  NORTH  ANO 
C 

C YP 

C#a###E  AST  POSITION  OF  CG.  X ANO  Y POSITION 
C 

c 

C****#InpuTS-BP.XLAT . XL*TR. XLONR.T lliTl2.T13.T21.T22.T23.T31.T32.T33.XP. 
C 

CaaaaaZP.CLATP.STMETR.CTMETR.HPR 

C 

C 

CaaaaaOllTPUTS-OMR.OER.XCG.YCG.XPR.YPH.HPR 

c- 

C 

CaaaaaNORTW  and  EAST  POSITION  OF  C.«.  FROM  RUNWAY  (0.0)  COORDINATES 
C 

DNPaPH* (XLAT-XLATR) 

OFRaRR*ClATR*(XLON-XLONR) 

C 

C TtTLF.  JAN  6.  1973  L00P3 

CaaaaaX  AMO  Y POSITION  OF  C.G.  W.H.T.  RUNWAY 
C 

XCSaONHaC  THFTR ♦OFR*STHt  TR 
YCSa-ONpaSTHFTR.OERaCTHETR 
C 

caaaaax.v.  AND  H POSITION  OF  PILOT  W.H.T.  RUNWAY 
C 

ONPPaUNR.Tl 1**P*T21*yR*T31»?P 
OFPPaUfcR.T 12*Xp*T22*YP*T32#ZP 
>ROaONPP*CTMfTAanEPR*STHFTR 
YPR«-UnPr*StmE  TR*OEPR*CThETR 
MOPBHC6-1 l 3*XP-T23*YP-T33«ZP 

c 


NADC"TT02*-30 


C»»»*»ThJS  PORTION  OP  THE  PROGRAM  CALCULATES  inertial  P*0*  ANO  r 

c 

C*****OuE  TO  NON-PLAT  earth*  true  air 

c 

C»»*SPfFO. GROUND  VFLOCITY.  FLIGHT  PATH  ANGLES  IN  VERTICAL  ANO  HORIZONTAL 

c 

c**##* Inert  I al  plane 
c 

C» INPUTS-  vn*VF.VD*VEE*RTV.SLAT*CLAT,T11,T12*T13,T21*T22*T2J*T31*T32,T33 
C 

VNR,VER«V0R 

c 

c 

C»****OllTPllTS-  PL *OL *RL*PLR*OLB*RLB* VT « VG*6AMV*GAMH 

c 

c 

C»«»«*INFPTIAL  P.O.H  IIFLATbI  means  ELAT  £ARTM-OTMER*tSC  ROTATING) 

C 

IP(IPLAT)  100*100*200 

voioo  pl«ve/htv 
ol»-vn/rtv 

HL»-VE*SLAT/ »RTv*CLAT) 

HLH«T11»»L*T12«0L»T13«RL 
1»Lh»T21«HL»T?2*OL»T?3*RL 
».LH«T31*hl*T32«OL*T33»RL 
GO  TO  JOO 
00200  PL*0.0 
OL«0*‘ 

PL«0. 

PLHaO. 

OL*<>0* 

MlAsO. 

c 

C«»***PLIGhT  HATH  angles*  GROUND  VELOCITY  ANO  TRUE  AIRSPEED 
C 

00300  PAO»VN«»2  «VCEa»2 
VTaSOMT  <PAD*VO**2> 

VRbSORTIPAD) 

IP (VT.Cb.Q.O)  GO  TO  3S0 
GA«va«TAN?(-vr>*VG> 

IP (PAD. FU. 0.0)  GO  TO  *00 
C-AMMaAT  AN?  ( VPE  * VN) 

00350  CGnTINUF 
00400  CGwTINUE 
C 

c. ••••«••••••••••«••••••••••»•»»•»•••••••••••••••••••••••••••••••••••••• 

C 

C.»#a*THtS  POHTION  OF  THE  PROGRAM  CALLS  THE  USER  ROUTINES  FOR 
C 

C#aaa*T«P  THIRD  LOOP  FNGlNE .CONTROL  SYSTEM, ENGINF  AND  SPECIAL 
C 

Ca#P**UTTLlTY  FUNCTIONS 
C 


A— 30 
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call  ore* 
return 
END 


SunoOUTlNE  8 ATMOS 


• bATMQS  CALCULATES  TOTAL  VELOCITY  RELATIVE  TO  THE  VINO* 


• At*  OENSITY.  HACH  NO.  * DYNAMIC  anc  impact  pressures* 

• CALIBRATED  ***0  EQUIVALENT  aimspeeos*  speed  op  sound 


• INPUTS  - ALT»U*>.VB*VR 

• outputs  - vrm  *rmo  *xmacm*ob ar  * jbarc  * vcal * sound 

AS*3F  APRIL*  1974  NO  LONGER  OUTPUTS  VRV.  SEE  BALF8ET 


• UPQATEO  3 UEC  73  TO  REFLECT  CHANGES  MAOE  TO  CURRENT  F$AA  VERSION 


COmmON/AFLOAT/A (5001 /IF IXEU/I A <*00> 


Equivalence  (Acossi 

• UB  ),(A(tf59).Vtf  1.(4(060) 

• MB 

)« 

1 (A(OTO).VH* 

) « (A(OTl) •XMACH 

) « (A (075) « VEQ 

) • 

1 ( A (0F3) * ALT 

) « (A(101) *vCAL 

) * (A( 17B) .OBAR 

) » 

CAJ1T9) .OhAOC 

) . (4(163) *«MO 

)• (A (209) .SOUND 

) • 

(A (33/) *TR 

) . (4(333) «PR 

) « (A (364) «RHOZ 

) • 

i (A(36S) .HRmOZ 

) . (A  (366)  «TAMtt 

) » (A (367) *PAmA 

) • 

lAOttl  ,TTOT 

) . ( A (36V ) .PTOT 

) • (A (370) .OELAT 

I 

EQUIVALENCE ( A ( J71 ) .SOTENPH) 

EQUIVALENCE  (Vnp.A (72) > « (VEH«A( 73) ) * (VDR*A(7A) ) 


EQUIVALENCE  (IA(OOI).ImODE  ) . < I a 1 141 ) * ICUnO  > 

DATA  MLEV/3400V./«XMl/l./*MPES7/^ 110.2/ .TEmPZ/516.69/ 

• •<*«**t»*«**************«**»***H****4****************»***«.*H 


• "vow"  IS  TOT.  AIRCRAFT  VELOCITY  W.R.T.  VINO  # 


NADC-TT02A-30 


• hoof  control...  i-n  is  mi.c.«.  toi  is  "hold".  in  is  "operate** 

IP (IMOOE)  2.3.3 

2 Call  AROC62IO.O.SOUNOZ.RHOZ1 

»••••••*••*••••••••••••••••••••••••••••••••••••••*••••••••*••••« 

"ICOnO"  IS  CONSTANT  density  SELECTION  SWITCH 

ip  «ICOK>"  SET  TO  (1).  ALL  CALCULATIONS  ARE  REFERENCED  TO 
Tup  DENSITY  AT  THE  ALTITUDE  SPECIFIED  BY  "MRM02" 

3 IP  1 1 CONO) a « a«6 

A XX* ALT 
SO  TO  7 

6 XlaHPHOZ 

7 CONTINUE 

CALL  AROC  62  I X X ♦ SOUND » RHO ) 


C 
C 

C •••••#••••*••••••••••••••••••••**•••••••••••••••••••••••••••••••••• 

c • "TP"  IS  TMf  TOT.  TEMPERATURE  RATIO  • 

C • »«>»••  IS  THE  TOT.  PPPSSURE  RATIO  • 

C 

c 

TR«1 .♦.2»XHACH**2 
C 

1PIXMACM-XH1)  11.11,12 

c 

001*11  Pb»TR*TH*TP*SORT<TR) 

60  TO  13 
C 

00012  IP(XhACh)  121.121,122 
C 

00121  POsl.O 
C-0  TO  13 

C 

00122  CONTINUE 
TE*P1«XNACHp»2 
TphP2*7.-1. /TEMPI 

►R» 1 66 . 9*TF HP 1 / < TENP2*TENP2*SORT I TENP2 1 ) 

C 

00013  1PIALT-HLFV)  6O.A0.S0 

c 

c •••••••••••••••••••••••••••••••••••••••••••••••••••»•••••••••••••••• 

c • "TAN*"  IS  ahRIENT  TFhpeNATURE  in  DECREES  KELVIN  a 

c • "hahr"  is  ahrient  pressure  in  lo'ft2  • 

c • «TAHRH«  is  RATIO  of  «1AMM»  AT  ALTITUDE  TO  SAME  AT  SEA  LEVEL  • 


A-32 


>.• 


■y  ^*1  : . 


Vv  S' 

* 

•>'v:  V'  . - . 


NA0C-T702A-30 


C • »*AMBR"  IS  RATIO  Of  "PANS"  AT  ALT  1 TUOE  TO  SAME  AT  SEA  LEVEL  • 

C • ""TOT”  IS  TOTAL  PRESSURE  • 

C • "TTOT"  IS  TOTAL  TEMPERATURE  . • 

C aaa..aaaaaaaaaaaaaaaaaaaaaaa*aaaaaaaaaaaaaaaaaaaaaaaa*aaaaaaaaaaaaaa 

c 

000*0  Tamrb»1 ••*iOT9C-6*ALT 
P AMRR ■ T AMftRa  »S . 25* 

60  TO  *0 

c 

0 A050  TAMHPa.751B«S 

P*MPP».223**CXP<-*.00*E-5*«ALT-HLevn 

c 

000*0  CONTINUE 

T AMPaUCL AT «TAM8R*TEMPZ*. 5555553 
PAMHaPANHwappEST 
C 

PTOTsPHaPAM* 

TTOTaTvaTAMp 

c 

c aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

C • "PMO"  IS  OENSITV  Of  AIR  AT  ALTITUOE  • 

C • "SOUND"  IS  SPEEO  Of  SOUNO  AT  ALTITUDE  • 

C • a 

c • "RmO»  and  ••SOUNf)"  ARE  "OOIPIEO  BY  OELTA  TEMPERATURE  EffECT  a 

C • "UELAT"  IS  THE  DELTA  TEMPERATURE  Dlfff BENCE  Of  DESIRED  * 

C • ANNIENT  FROM  STANOARO  TEMPtRAURES  IN  OCTREES  CENTIGRADE  • 

C aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaacaaaaaaaaaaaaaaaaaaaaaaa 

C 

rCONaTAMN/(TAMP-0ELAT) 

S0TEmRR«SOPTIVC0N» 

C' 

PHOaPMO/VCON 
SOUND aSOllNO*SORT  C TCONI 
C 

c aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 

C • "SMACM"  IS  MACM  NO.  a 

C • "ORAM"  IS  OTNAMIC  PRESSURE  • 

C • "OMAPC"  IS  IMPACT  PRESSURE  a 

C • "VF 0"  IS  EQUIVALENT  AIPSPEEO  IN  KNOTS  a 

C • "VCALh  IS  CALIBRATED  AIPSPEEO  IN  KNOTS  a 

c ••••••••••••• • •••••••••••••••• ••••••••••••••••••••••••••••••aaaaaaaa 

C 

ANACHaVPA/SOUNO 

e 

0RAPa.3aPM0*VRK*a2 

C 

ORAPC»PTOT-PAMM 

c 

VfOa. 5*2*0* VHB*SORT <RHO/RMOZ) 

C 

I*  (vtO  .LI.  10.1  GO  TO  70 

VCALa.3Vi>*9*SOUNOZ*SOMT(S.0*(IOMAHC/PRESZ*1.0)*R.2AS7-1.0)l 

00  TO  71 
C 

00070  CONTINUE 
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VCAL  ■ vee 
C 

0O0T1  KCTUBN 
EMQ 


SIJBHOUTINF  OROTATE(DELT) 

c 

C mODIFTFO  er  R.E.  MCFARLANO  JAN* 14*1974 
C 

common/ XFLOAT/A (500)/IFIXED/IAI*00) 
COMMON/CHF/R (2001 /ICHF/IB (SO) 


c 

c 


c 


e 

c 


c 

c 


DIMENSION  xmq ( 1 0) 
Dimension  ITOUCm(S 


II.IACIOII 


EQUIVALENCE 

INN! 

» A ( I )) 

.ITNET 

*A(2 

)).(PSI 

• A (3 

))» 

1 

(PMIP 

•A (A  )) 

• (TmETA 

• A (5 

) ) . (PS1H 

.A  (6 

))« 

2 

(PHIO 

*A(7  ) 1 * ( TMtU 

.Alt 

I ) . (PSIO 

• A (V 

1)  . 

3 

(SPMI 

• A ( 1 0 1 ) 

. (CP«I 

. A ( 1 1 

) ) . IS7N7 

. A ( 12 

) ) . 

A 

ictht 

* A ( 13  ))*(SPSI 

• A ( 1 A 

)).ICPS1 

. A ( 15 

) ) . 

b 

(PH 

•A (37  )) 

. (OR 

.A  (30 

) ) . (PH 

. A (30 

>) 

EQUIVALENCE (PSIS.H 

* 

(HA)) 

EOI/IVALENCE 

(PLR 

« A (A3  )) 

. (OLD 

. A (AA 

) ) . (RLE) 

»A(A5 

) ) . 

) • 

(PT 

•A(A«  )) 

• (QT 

. A ( A7 

) ) . (RT 

* A (AO 

) ) . 

l 

(PHUN 

•A (AO  ) ) 

• ( 08  AN 

. A (50 

) ) . (RHHN 

.A(51 

)). 

3 

(PTORB 

• A (62  )) 

• (QTURH 

• A (S3 

) 1 • (RTl/RH 

.A  (5a 

) ) . 

A 

(PHD 

«* (65  >> 

* (ODD 

.A(50 

) ) . (ROD 

.A  (57 

))  • 

b 

(XMC(l) 

i*  (120)  ) 

. (TTL 

.A I10A) ) • (TTN 

. A ( 1 05) ) t 

0 

(TTN 

.Allot) ) 

EQUIVALENCE 

<ti*e#a 

(303)) 

EQUIVALENCE 

(AC3AB) 

,f>2H).(A(3S9).R20) 

EQUIVALENCE 

( A (03TS 

) .XMCC1 

EQUIVALENCE 

(A  1 0376 

) .XMCC2 

EQUIVALENCE 

(A (0311 

1 . XNCC3 

EQUIVALENCE 

( A ( 0370 

) .XMCCA 

EQUIVALENCE 

(A (037V 

) .XMCCS 

EQUIVALENCE 

(A (0300 

) .XMCC6 

Equivalence 

( A ( 030 1 

) .XMCC7 

equivalence 

(I MODE* 

I A ( 1 ) ) 

equivalence 

(I*(10> • 

I2DOF) 

DOilHE  PRECISION  DTJME 
Data  ts/o.o/ 

Data  Udof/o/ 

DATA  PI/3.U15927/ 
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Ca*aaaR»nTATE  CALCULATES  P80.0B0.RU0* INTEORATES  TO  OCT  PS  < OB  * RB • CALCULATES 
C 

C •••••Pown.OBPN.RBnN.pt *QT .RT .THEO.PSIU.PHID. I NT6 ORATES  TO  BET  THEIR* 

C 

c..**»piIB,PHIP  CALCULATES  THET *RSI *RHl 

c 

c 

C»**** INPUTS”  TTL.TTM.TTN.XMC(l)  THROUOH  XMCUOI *RLB*OLB*RLB«RTURB*OTURB* 

c 

HTURR.SPMl.CPMI.STHT.CTHT 

c 

c 

C**«*»OUTPUTS-PeO.OttO»P8D.PB.CB«HH*PBWN,OBWN.R»WN.PT>QT.RT.THCD*PSIO,PMI 

C 

€•••*•  THCTR.PS IR 

C 

C 

tr  nHOOE.EO.-l»  00  TO  1 
on  TO  2 

00001  PMSR-PSIS 
pytAPaPSIP 

00002  CONTINUE 

PRO*  <X*»c  { 1 ) *««♦  xmc (2)  PRO!  *OB»XMC (3)  *TTL*XNC(4I  *TTN 
1 * xmCC1*OB  ♦ XHCCSPRO  - XMCC6*PS 

ORO«XNC(S) •RPPPR*XHC«6)P(R8**2-P«*P2I*XHC(7IPTTN 
1 - XHCC2*PB  • XNCC3*PR 

POn«(XHC(A> •PM»XHC (0) *Mfc ) #Ob»XMC  < A| *TTL*XWC ( IOi *ttn 
r • X”CC**OB  ♦ XNCC6PHB  - XMCC7*P« 

irn«O0E)  10.30*20 
00010  OPOPauMO 
PNOP»«HO 
P*OPaPHO 
DT02a.*«QELT 
OTINE«0. 

Tl**P»0. 

00  TO  30 

20  PNaPM*OTO2«f3.0*PB0-P80P) 

PpOPaPkO 

Om.om  • uTO2*(3.0*OBD-OSOP) 

0«0PaUH0 

Tinpi»T1nE*0ELT 

TP CI?OOE.E0.1)  OB«.01TAS2/OCLT#<TAB1 (TIHE1.0..0..0T.1)-TAB1( 

1 Tl**t«0..0..67,l)> 

NRaPB  • OTO?*(3.0*RRO”RBDP) 

PaOPskno 

PTI**p»|)TINE»OEtT 
TlMf.oTlHf 
00030  PTaPN-PL i* 

OTaOM-ULH 
PTaPN-PLN 
PRWNaPH*PTURR 
6Mw*«aOH*OTIIPR 
PRwMaM*.  « w TI/RH 
TNPnaoT*CPNI-HTaSPHI 
CTMTlaCTHT 
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jr (»%S(CTHT1) .LT*.0S1>  CTMTlaSlON ( >001 tCTHT) 
P51DbIOT*SPnI*BTBCPMI>/CTHT1 
pM|r>aPT*PSIO*STHT 
!* II»OUt ) 60*70.50 
?S9M  TmfTPbThETB  • DT02*CTHED*0UH) 

IF (I?OOF.EO.I>  THETBa.017*52»TA61 (TJMt«0.*0.t67*l) 

* nTO2«(P$I0*PUMP) 

Pw|BaMHIH  ♦ DT02* IPHID*DUMA) 

C mFAOINB  CL*PP  NHEN  GEARS  TOUCH 

IFIlTOUCHf  M.EO.O)  PS1BP«PSIR 

IF  < I TOUCH ( 1 1 .k  0. I . AND. I TOUCH 1 2> *E0. 1 1 PSIBaPSIBP*P$I$-PSISP 
P«|MPaPSlP 
p«t*PaPS15 

C PFOUCt  AMilFS  TO  ♦/-  UO  OEGBEES 

IlaTHETR/PI 
IF ( T 1 •to.01  PO  TO  SI 
TnFTPa- CI1*1)*PI*THETR 

51  IPaPSIS/PI 
IF<J2.E0.01  PO  TO  S2 
P*T<*a-<12*l  )*P1*PSIP 

52  IFfl3.E0.0l  PO  TO  S3 
PmIQbPmIR* ( 13*1 ) *PI 

53  CONTINUE 
00060  THFTaTnETP*P20 

Ph  t aPHlpan^f) 

HPTaPSlP»P20 
Ou-bThED 
DUHRaPSlO 
DilMAaPHIO 
0OOT0  CONTINUE 
PFTIlPN 
tNO 


SUI POUT  1 Np.  APOC62 (ALT* SPJND * DENS T y y 

AUTHOR  H P BURNER  and  B E MCFARLAND  FOB  0600 

S | PM A SEVEN  VERSION  BY  B SHIHLEV 

IB-  360  VERSION-  BY  0 JONES  -CSC-  FEN  73 


CALLING  SEQUENCE  IS 

CALL  ABDC62(ALTtSPSN0tDENSTY) 


OINENSION  SPS(121>»DFNS(12n 

01 HE NS I ON  0FNS1 (20) .OENS2(20> »DENS3(20> »0EN$*(20) 

1 » OENSS ( 20 ) . 0FNS6 ( 20 ) • SPS 1 ( 20 ) t S»S2 (201*  SPSS (20  > 

2*  SM4(*0)  ♦SPSSUrO)  .SPS6C20) 

EQUIVALENCE  (OEnS ( 1 > •OENSI ( 1 ) ) . (OENS  <21 ) .0ENS2 (1)1 
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1.  (029SU1)  tD2NS3lln  • (02NS 1 61) .02*54(1)  > 

2.  ID2MS(61).02NS5(1) ><(02NS(101>  .02*36(1)) 

3*  <SPS(1)  .SPSl  (l)  ) • (SPSUi)  .SPS2I1)  ) . (SPS(41>  .SP$3(1>  I 

4,  ISPS  161) .SPS4I1)) . (SPSI61) tSPSS(l)) }(5PS(101) .SPS6I1)) 

c 

Data  02NS1/2. 377012-3 
1.  2.2*0962-3 

1*  2* l 1099E-3 

1 . 1. 966642-3 

1*  1.066362-3 

It  1.755372-3 

It  1.647662*3 

It  l.S45112*3 

It  1.447512-3 

It  1.354692*3 

It  1.266492*3 

I.  1 . 1H2762-3 

It  1.103332*3 

1.  1.0?m05E*3 

It  .956762*3 

1.  .609322*3 

It  .629572*3 

It  .765362-3 

It  .706602*3 

It  .644192*3/ 

DATA  02MS2/. 565 1462*3 
1.  .5315172-3 

1»  .*626012-3 

It  .4365542-3 

It.  .3963592-3 

It  .3616502-3 

1.  .3266662-3 

It  .2965612-3 

1.  .2711972-3 

1.  .2463412-3 

1.  .2237652-3 

1.  .2032562-3 

It  .1646272-3 

1.  .1676162-3 

1.  .1 516552-3 

It  .1376152-3 

1.  .1247*42-3 

It  .1131072-3 

It  . 10256*2*3 

1.  .0930662-3/ 

DATA  02*53/ . 0644532-3 
It  7.67142-5 

It  6.97012-5 

It  6.33*92-5 

It  5.75662-5 

It  5.23702-5 

1.  4.76352-5 

It  4.33412-5 

1.  3.94*32-6 

1.  3.59062-5 
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l.  3.2A96E-5 

1.  2f9781E-S 

I.  2.7132E-S 

1.  2.44987-5 

if  2.24UE-S 

It  2.03S7F-S 

If  1.B501E-5 

If  l.b827F-S 

It  1 .5315E-5 

if  1.394BE-S/ 

DATA  DENS 4/ 1 f 27 1 E-S 
n I.1592k-i> 

If  l.0t>79E-5 

If  9.6601F-b 

If  0.M271F-6 

It  #.0707E-b 

If  7 f 3S3BF-6 

if  b.7*94F.-b 

f 6.1916E-6 

f 5.674VE-6 

If  5«2P4bE»6 

If  4.77S7E-6 

if  4.3M47t-b 

f 4.0?e2t-b 

t 3.7026E-b 

. 3.4052E -6 

f 3.1333E-6 

If'  2.BB40E-6 

f 2.6fc*7F-6 

f 2.46B3E-6/ 

Data  DENS5/2.2«81E-b 
f 2.1212E-6 

f t . 9664E-6 

f l.d?30F-b 

t 1 .6900F-4 

f 1.5bb»tE-b 

f l .45257 -6 

f 1.3524F.-6 

f 1.25H8E-4 

f 1.1713E-6 

f l.OHVbE-6 

f 1.0J32F-6 

f 9.41V5E-7 

f 8.7537C-7 

t 8. 132bk-7 

t 7.5632E-7 

f 7.0126F-7 

f 6.iO«5F-7 

f A.03b7F-7 

f S.feOUF-7/ 

DATA  DE8S6/5.1932C-7 
f 4.bl34F-7 

f 4.47Vbf-7 

f AflbbVfe47 

t 3.8732C-7 
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3.S979E-7 
i«  3.3397E-7 

,«  3.097»f-7 

• 2.6T12E-7 

• 2.6592E-7 

• 2.46097-7 

. 2.2757E-7 

• 2.1027E-7 

• 1.9*126-7 

• 1.7906E-7 

» 1.6S03E-7 

• 1.5197E-7 

. 1.3981E-7 

• 1.2B51E-7 

• 1.1802E-7/ 
DATA  OENS<12l)/l.O027E-7/ 
DATA  SPS1/1 116.42* 

• 110(1.722 

• 1100. 99b 

• 1093. IS* 

• 1085.286 

• 1077.360 

• 1069.376 

• 1061.333 

. 1053.227 

• 10*5.059 

• 1036.926 

< 102A.527 

• 1020.161 

• • 1011.726 

• 1003.220 

. 994.6* 1 

t 965.960 

• 977.256 

. 966. **• 

. 960.053  / 

DATA  5*52/960.053 

• 966.053 

• 960.053 

• 960.053 

• 960.053 

• 960.053 

• 960.053 

• 960.053 

• 960.053 

• 960.063 

• 960.053 

« 966.053 

• 966.053 

' 966.31* 

t 966.676 

• 971.03* 

• 972.390 

. 973.7*0 

• 975.099 
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D*T*  S2S3/977.799 


D*TA  S65*/1020.77 


0*7*  6*55/1062.02 


976.450  / 

» 

976.95 
960.29 

961.62 

962.96 

964.26 
986.61 
966.93 

966.26 

969.66 
V90.90 
992.21 

993.63  * 
996.41 
999.07 
1002.72 

1006.36 

1009.96 

1013.69 
1017.19  / 

7 

1024.34 

1027.69 
1031.4* 

1034.97 
1036.40 

1041.99 
1046.48 
104H.V6 
1062.43 

1066.66 
1069.33 
1062.76 
1066.16 

1069.69 

1072.99 

1076.37 
1079.75 
1062.02 
1062.02  / 


1062.02 
1062.02 
1062.02 
1062.02 
1062.02 
1062.02 
1079.63 
1077.23 
1074.62 
1072. 4Q 
1069.96 
1067.56 
1066.13 
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• 1062*69 

• 1060.25 

. 1057.61 

• 1056436 

. 1052.90 

• 1050.4*  / 
0474  SPS6/IO47.90 

« 1045.50 

« 10*0.63 

. 1036.65 

• 1030.65 

. 1025.62 

. 1020.57 

t 1015.49 

• 1010.39 

. 1005.26 

• 1000.11 

. 994.94 

,»  969.73 

. 964.50 

. 979.25 

. 973.96 

. 966.65 

963.31 

. 957.9* 

. 952.55  / 

04T*  505(1211/947.12/ 


H«*LT 

Ir(4LT.cr.0.0»  M«0.0 
lr(*(.T.GT. 2*0000.)  Ha2*0000  « 

PINO  *CT  INCREMENT  A NO  TRACTION  N 

1 AlTaH*Q. 0005  *1 

*LTP«(M-( J*tT- l )»2000» *0.0005 

CALCULATE  Ilf N6ITY  AN0  SPCEO  OP  SOUNQ 

OENSTf "OEMS ( I ALT) - 10PNS  MALT) -OtNS  < IALT*1 ) ) *ALTP 
SP6NO-SPS  M AL  T ) - ( 5PS  M AL  T ) -SPS « UL  T ♦ 1 ) ) • ALTP 


RETURN 

Eno 


SimPOUTINE  PALPBET (OFLT) 


• BALPNET  CALCULATES  ALPOtflETOtAL^APtBerAR.ALPA.SETA.  AN0  SINE  ANO  • 


A-*l 
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AND  UB0.VBD.wB0. AND  VRw— AS  OP  APRIL  20.197*  (PROM  BATMOSPH) 

Corine  op  alfar  ano  betar 


Inputs-  ub.vb.wb. 

Outputs- alp AP. alp a. SALPH.CALPH. bet ah .beta. ALPO.BETD.SSETA.CBETA 


UPDATED  27  DEC  73  TO  REPLECT  CHANGES  MADE  TO  CURRENT  PSAA  VERSION 


COm“ON/XFlOaT/A (500)/IFIX£D/IA(2U0) 

I OUI VALENCE  (ALFA  .A (25  ) ) . (BETA  , 
) (HETAR  .A (20  l).(ALPO  , 


• A (26  M.IALPAR  » A ( 27  > 
» A (29  ) ) . IHETD  .4(30  ) 


(SALph  .A (31  ) ) * ( CALHH  .A (32  ) ) » (SBETA  .A(33  ) 


(CBFTA  .A(3*  >).(QR 
(UB  .A (59  )).IVB 
(D2R  »A(358)>.(R2D 


• A (3(t  )).(BB 

* A (59  i ) • (MB 
•A (359) ) 


.A (39  ) 
.A (60  ) 


EQUIVALENCE  (A (A  13) . UHD) < (A(«lA) tVRO) . ( A ( 6 1 S > . WBD) 

1.  (A (70) . VRV ) . (A (A  16) tVTMN) . (A(Al7) .VTWE) 

2.  (A  (Aid) .VTWO) • (A(B«) .VNO) . (A (8V) ,VEO) • (A (90) »VDD> 

3 • ( A ( A6) «PT) . ( A ( 47 ) »OT) . ( A ( *8) «RT) . ( A ( 1 6) .Til) * ( A ( 1 7 ) «T21) 

4 , (A(1r).T31) . (A (19) ,T12) . (A (20) .T22).(A(21).T32> 

54 (A (22) .T13) « (A (23) ,T23) • (A (24) »T33) 

EQUIVALFNCF  (ITOMTR.  I A ( lt)7 ) ) 

EQUIVALENCE  (IMOOE.IA(l)) 

OATA  ITOMTR/O/ 


••ALP A"  IS  ANGLE  OP  ATTACK  IN  OEbMEES 
“BETA"  IS  angle  op  SIOESLIP  In  DEGREES 

NOTATION  AS  FOLLOWS...  N-SUFFIX  INOICATES  RADIAN  MEASURE 

D-SUFFIX  INOICATES  DERIVATIVE 

s-phepix  Indicates  sine  op  angle 

C-PREFIX  INOICATES  COSINE  OP  ANGLE 


• TO  PROTECT  ALFA  ANO  BETA  FOR  (IRaVRaWBaO.O 


IP ( AHS (UM ) .LT. 0.00001)  UbaSIGN (0. 00001. UH) 

A(.P  APa  AT  AN2 ( W4 . UB ) 

A^P Aa ALF  AR*R20 
SALPMaS IN ( AlPAM ) 

CALPHaCOS (ALFAR) 
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^TRANSFORM  CALCULATES  SINKS  AND  COSINES  OF  PS!RtTHETR«»HIfft  And 
To*NSF0rnATI0N  ElBNENTS  Til .TJl *T3l«T12*T2if*T3EtT13*T23«T33 

iRPUTS-FSIP.THETRtPMIP 

0uTPUTS-SPSI.STHT*SPNl.CPSItCTMT«CPHItTU»T2l.731«Tl2.T22.T32, 

T13.T23.T33 


COMWON/XF t OAT/* ISOO) /IFIXEO/I A 1 200) 


EOHI VALENCE 

(PHIR 

♦ AC* 

H^IThETR 

♦ ACS 

miPSiR 

♦ A To 

)>♦ 

ISPMI 

♦ AI10 

1) ♦ICPNl 

♦ A 1 1 1 

) ) ♦ 1 stht 

♦ A 1 12 

> J ♦ 

(CTHT 

♦ AI13 

1 ) ♦ISPS1 

♦ All* 

IWICPSI 

♦ AI1S 

))♦ 

• Til 

♦ AllO 

))  ♦IT21 

♦ A 1 1 7 

1 ) ♦ IT31 

♦ AUK 

1 1 ♦ 

(T12 

♦ All* 

>>♦1722 

♦ A 120 

M ♦ I T32 

♦ A 121 

n ♦ 

IT13 

♦ A 122 

> ) ♦ IT23 

♦ AI23 

> > ♦ IT33 

• A 1 2* 

1 1 

SPMI«SIN(PHIP) 

CPHlaCOSlPHIRI 

SPSIaSlN(PSIP) 

CPRIaCOSIPSIR) 

STNTaSlNIThETH) 

CTMTaCOS ( THfTR I 

T1 1«CTNT*CPSI 

T2 1 a*PM I »S  TMT*CPS I-CPH I a$PS I 
TJlaCPMI*STHT*CPSl»SPHiaSPSI 
T12aCTHT*«PSI 

T?PaXPHI«srMT*SP<I*CPNlaCPSI 
T3?aCPN  J *STHT*SP<*  I -SPHI  *CPS  I 
T1 3b«SThT 
T23aSPHJ*CTMT 
T33aCPMjaCTMT 

RFTURN 

ENO 


•• 


SlIRROUT  INC  RVELOC 

^ ' 

* **  MM  **********  i 


L 
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DUN2»U&»*2»WH*#2 
Ohm  a $0hT<DUH2) 

DiJMl  • S10NCDUM.UB) 

RfTAR  ■ ATAN2(VB.DUR1> 

PETAbHETAR«B2D 
S BE TA*S IN  CRETAN) 

CpftapCOS CRETAN) 

C V*W  CALCULATION  cFROM  BATMOSPh) 

V»ri2sUU*l»vna*2 
VPaaSURT (VRW?) 

IF(IMOUE.EO.-l)  SO  TO  35 

C 

C kino  ACCELERATION  INCLUDING  TURBULENCE  AND  NINO  VARIATIONS 

C 

IECOELT.FO.O.)  GO  TO  35 
ATHNa (VTWN-VTENPI/DELT 
AT-vFb  (VTvE-VTEtPI/OELT 

ATwn«(VTPO-VTVOP)/DELT 

AO  TO  3b 

00035  ATaN«0. 

4T*F«0. 

ATNf>«0. 

0003b  CONTI NOT 
VTWNPPVTWN 
VTwEPaVTWf 
VTVOPaVTwO 

C PELATtVE  ACCELERATIONS 
RANsvNOoATWN 
RAFavtU-ATwF 
RAObVOD-ATMO 

C HOOT  AXIS  ACC* LFRAT IONS 

lHOaPT»V.«-OT*WH.TU*RAN*T12*RAE*T13»RA0 
V>40*RT*i,H-RT*(/H.T21*RAN*T22*HAF*T23*RAD 
hnosOT*uH*RT*VH«T31 •RAN*T32*RAE*T33#RAD 

C 

IF 1 1 NODE  I 3 A. 39,3  V 

00036  TFclTOMTH.Nf.il  GO  TO  39 

ALFOaO. 

HFTOaV. 

GO  TO  *0 

00039  TF(VR«». 1)41.41.42 

00041  alfopo. 

«ETO»0. 

no  TO  40 

00042  ALFD>(UH«WR0-WB4US0)/DUN2 

BETOa  <I)UM2«VB0- (UB«UB0»W6*HB0) *VB ) / C0UM1*VRV2> 

00040  RETURN 
End 


subroutine  btrans 
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^VELOCITY  calculates  the  inertial  velocities  with  respect  to  the 
INERTIAL  WINO  COMPONENTS*  ANO  the  BOOY  axis  velocities  U*V*W 


inputs-  VN.VFE* V0*VNW*VEW»VDW*T1 1 *T21 *T31 *T12*T22*T32*T13*T23*T33 

OuTPUTS-VNR < VCR « VOR *U0 • VB* WB 
UTURR.VTURB.WTURB 


COmmON/XElOAT/A ($00) /IFIXED/I A (200) 

rotllvALFNCE  (Til  «A(16  ll.(T21  *A(17  )J.(T31  *A(1S  II* 

1 (T12  ,A(19  I ) » I T22  • A (20  |)*(T32  «A(21  II* 

2 ( T 1 3 « A (22  II.IT23  *A(23  ))*(T33  *A(24  ))• 

3 (OH  .A(b«  II* (VH  «A(S9  |!«(«H  * A (60  II* 

A (UTURB  • A (61  ll*(VTUNR  .A (62  |l*(WTUftl)  .*(63  II* 

«.  <VN  • A (64  II. (VO  • A (66  I I « (VEC  *A(6T  II* 

6 (VNR  • A (72  I I * (VEH  • A (73  1 1 * (VOR  «A(T4  II* 

7 (VNW  • A ( 76  I I . I VC*  • A (77  ||*(VOW  *A(7d  II 

EQUIVALENCE  (I»(16S) . IETURHI • I A (*191 . VNTURHI 

1* (4(4201  .VETUHHl , (A (421 1 * VDTURRI * (A (4161 .VTWNI 
2* (4(4171 < VTWFI « ( A (4 1 6) • VTWDI 


• NORTH.  EAST*  DOWN  VELOCITIES  XNCLUOINO  VINOS  • 

• W.R.T.  THE  RUNWAY  • 

IF  lETuPR  .EO.  1*  THE  RANOOM  TURHELENCE  IS  ALREAOY  OENERATEO  IN  The 
EARTH  AXES  AS  VNTURh*  VFTUPB*  VDTURM.  OTHERWISE*  THIS  ROUTINE 
EXPECTS  UTURB.  VTURB*  WTIIRR. 


• ROUT  AXIS  VELOCITIES  INCLUDING  TURBULENCE  • 

IF  ( TfcTuPB  .EO.  01  00  TO  10 
UTURB  ■ Til 4VNTuRH»T12*VE TURH*T13*V0TURW 
VTIIPR  ■ T214vnTiiRB*T22»VETUHH*T234V0TURH 
WT(lRN  • T31*VNTuR«*T32*VETUHH*T33*VRTURW 
60  TO  20 

00010  VNTURH*  Tll*UTUP««T214VTUR»*T31*WTURe 
VETlIRW  « T124UT(|RM*T?2*VTURH*T32*WTIIRB 
VOTURN  ■ T13*UT(IR«*T23*VTUK8*T3J»WTUNR 

c 

OOQ20  VTWN  * VNW.VNTURR 
VTWE  ■ VEW*VEIURR 
VTWO  • VOw*VOTURR 


A-4S 
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VNO  ■ VN-VTMN 
VER  » VEE-VToE 
vor  ■ vrt-vTwo 

U«  » T1I«VN«.T12*VER*T13pVD» 
vn  ■ T21*VNP»T22*VER.T23*VDR 
VR  ■ T31»VNR»T32»VEM*T33*VDR 


RETURN 

END 


SUBROUTINE  T AOMO  f NUMT HL  • NZ  • NO ) 

COmmon/TAPLE/NUmbTS  C3S00J 
COmmON/TABOUT/NIMTBL. ISOO 
COmmoN/xTPAP/mE7H.1 ACT (3.03) 

CONMON/F IND/INNFV (3*93) 

DIMENSION  ISCR  <31 

OImfnSION  XUmRT S ( 3500 > .LABEL (25) 

EQUIVALENCE  ( XUMPTS (lit  NUNPTS (!>>•( DUMMY ( 1 ) .MUMMY ) 
DIFFUSION  DUMMY (10) 

DATA  ICnTI/0/ 
pcrpo 

ICNT 1 ■! CNT 1 • 1 
PRINT  BOO.lCNTl 

S00  FORMAT (] MO. 10X.30H  SUBROUTINE  T*BR0  ENTERCO 

15x.OmT1m£5  ) 

MCS«I 
SO  TO  10 
ENTRY  TAHRRT 
PRINT  100 
100  FORMAT  Uhl) 

MCRal 

10  I ?■  I AOS  <N7 ) 

MMTRL  ■ NUMTBL 
NA*0 

KuMPTS ( 1 ) »!7«I7»IZ 
lTAlf-0 

102  RFAO(V7.t>T)  X. LIN. L2N.1SCR. LABEL. ISEO 
IF(F.EO.O)  ROTO  A 
ITRLE»ITMLE*1 
t>0  20  ICmSE »1 .3 

I ACT ( ICMSf . ITNLf ) ■ JSCR I ICMSE) *1 
20  lP»FvCIfMSE.ITHLf)»l 
joof v ( J. ITRLE) “ITBLE 
IEImcR.FO.0)  KOTO  3 
A PRINT  1.  K»L 1N.L2N.LAHEL . ISEO 
1 FORMAT <3IS. 1AX.2SA2.IA6) 

57  FORMAT (iix«14.2I?«3I1<1x.2SA2.I2) 

3 lF(ISfcO)  69.50.00 


. 1 OX. 13. 


i 


I 


l 


*•46 


58  IP<P)  99.  99*  59 
59  N a 17  * NIMT8L 
NtjMPTS(H)  a UiN 
H a a • 17 
NtIMPTS  <H)  a L*N 
IP  INIInTRL-NIMT«l» 17.70*17 
IT  NtIMPTS  <NIMTHL>  ■ NUMNV 
TO  1*1  a JL1N-1)  / 9 • 1 
DO  6b  IS  • l.Nl 
L3  a *9.1 

tP  (tS-Nl)  60*  51.  60 
to  L.  a Li  • a 
60  TO  62 

61  (.4  a L IN 

62  L5  a NUNPTS (Nf NT9L)  • 1 
It  a LS  • L3 

17  » It  * L4 
JJ  ■ 0 

LM  a Lb  . LIN 
LN  a L*  • L2N 

63  PPAO (97.64)  (OUMMY(K)  .Kal.101  tlSCO 
64  FO0M4T  < 1 Of 7.0. 12) 
ir(MCR.EO.O)  60  TO  5 
6 POINT  2.  OUNMY.IStO 
2 Fno««r< 10612.4, 151 
5 XHMPT5  <LS)  a OUNNVU) 

K a 2 

On  65  J * L4.LT 
Xl|MPTS(J)  a OUMmy(K) 

NMAXaJ 
65  P a a ♦ 1 

ISOOat !S-1)*(L2n*1)»JJ*1 
IPflSCO-ISOO)  69.66.69 
66  L6  a LN  • LS 

LT  a LN  • L* 

L5  a LN  « 1 * Jj 

IP  (JJ-L2N)  6T.68.69 
4T  JJ  a JJ  ♦ 1 

LN  a LN  ♦ LIN 

GO  TO  63 
46  CONT  INiJP 

109  PlIMMY  a NlIPPTS  (NJNT4L1  * (L1N*1I  • (L2N«ll 
ION  NINTHL  a N1NT8L  • 1 
60  TO  102 
4*  NO  a 1 

99  P9TNT  UO.NMNX 

110  FOOm*T(»  ,,,..16.211..  LOCATIONS  IN  NUMPTS  AMAY  kCRC  LOAOCO  *1 
PfTllPN 
2 NO 


function  tani ca,n.c.n.no> 


6 
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DATA  IERPRT/1/ 

call  lookup* a *b.c*n,n«nd-i. fc.no> 

NA1 aNG* | 

nom  (6. 2. 2. 7.2. 2. 7.7) .NG1 
T ir (IFHPRT.EO.il  GO  TO  6 
POINT  1000.N.A.P.C.FC 
6 TAPlaFC 
RETURN 

2 POINT  1001 .NO 
RETURN 

1000  FORMAT (•  .....  OFF  TABLE  ••I3.P  AP0S»*.3(E10. *.!*).•  ..  FUNC.a  •• 

1 E10.A) 

1001  FORMAT (•  TABLE  ERROR  » N6  ■ •»I1) 

EnO 


SUBROUTINE  lookup  (AUA2,  A3. MINTBL.MAXTBL*FCT.NGI 

e ••••••••••••••••••••••••••••••••••••••••••••••••< 

C METHI  key  for  type  search 

C 1 - STANDAR0  order  search 

C 2 - MEMORY  SEARCH 

C 3 - BINARY  SEARCH 

C IACT (ARG.TAhLF) ! KEY  FOR  OFF  TABLE  ACTION 

C 1 - SET  FCT»O.NOO 

C 2 - HOLD  LAST  TAHLE  VALUE  OF  FCTt  SET  NGa* 

C 3 - LINEARLY  EXTRAPOLATE  FCT.  SET  N6>T 

C 

COmmOn/T  AhOuT/NI mTBL . ISOO 

COMMON/TARLf/NUMPTSOSOO) 

COMMON/XTRAP/MF.TH.  IACT  (3.V3) 

COMMON/F | NO/1 PRE V ( 3 . 93 ) 

EOUIVALENCE  (X(l».NUMPTS(l>> 

OTMENSICN  X 1 1 1 . AR6 (31 
DATA  1NIT/0/ 

MRTMa2 

fL0r.?aAL0A(2.llt 

FCTaO.O 

NAaO 

IFaNI»NPTS(l»/3 

00070  1F(mINTHL-MAXTBLI71.T1.!1S 
OOOT1  00  T3  1 1 aPINTML .MAXTRL 
N.|bN(IMPTS  ( 1 1 1 *1 
IF ( A3«X (NJI ) 72 .74. 73 

00072  IF(II*minThl1  110. 112.79 

00073  CONTINUE 
IlaMAXTHL 
GO  TO  112 

OoflTS  iKa  1 
1L  ■? 

NMaMJ 

00101  00  N7  lFaIK.IL 
NjaNt)MPTS(II>*l 


A-AS 
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Nl  a I2»II 
10  aNUMPTS(NI) 

IP  sI0*NJ 
IAR«al 
ARrt < 1 1 *A I 
MJtPaNJ 
lOIHalO 

IP (Al.GT.X <MJ*I0) ) 60  TO  212 
IP<Al  .LT.  X (NJ* 111  GO  TO  312 
60  TO  l40*4l*42l,MCTH 
00076  In* TO 1H 
IOalQI A 
MM  a (MO 

IPSf V 1 1 • 1 1 ) alO 
00  TO  «0 

C PINAPV  SEAMCH  SECTION 

00042  iLOaal 
iMfafOlP 

1P(X(IHI»MJIP)  .Nf.  ARGIIARO))  90  TO  43 
lOfAalKI 
00056  lOTHa-I 

J MOaN J 1 P ♦ 1 0 T A 
0005T  00  TO  <76.«l).lAR» 

43  IF(X(IL0W»NJIPI  .MC.  AR9(IAR«|I  SO  TO  44 
lOIAalLOw 

00  TO  56 

44  FualOIM 

M l-M  T • < ALOO  ( CU > /CL002 > ♦ 1 . 0 
DO  45  KKTal«MJMIT 
M|OaILOV*IIMI-lLOt»l/2 
IlinaNJlP«MIO 

ir  < ahG ( JAWfi) «x < INO) ) 40.55.40 

46  IP(APOIIA*G)-X<1MO-1>>  47.91*90 

47  IHIBMIO 
00  TO  45 

44  IP | APG ( I ARP l -X ( IM0*1 ) I 92.53*49 

49  II.nt.aMI0 

45  CONTINUE 
GO  TO  no 

55  lOIAaMlO 

GO  TO  56 

51  IOIAaM!0-l 
GO  TO  56 

53  10 1 AaMlO* 1 
00  TO  56 

50  IOTAaMlO 

54  lO t Ha  I 
IN0«NJIP*J01A 
GO  TO  57 

52  10IAaMIU«l 
00  TO  54 

c MfMOMY  spamCh  section 

41  IQI Aa IPmPV (TAHG.il) 

(MO aM JIM* 101 A 

IP  (AM*.  (I  APG) -XI  IMO))  69**1.62  ' 


A-4* 
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60  tF<A06tlAHG>-X(!ND-l)  ) 63.64,66 

63  I N0« I NO- 1 
60  TO  60 

64  lNftaINO-1 

6!  10TAa|NP-NJIP 

60  TO  66 

66  !Or«a!Ml»NJI» 

60  TO  64 

6?  17 (AW6(1«P6)-X<1ND«1) ) 66.67,40 

66  lxr>»!NO»l 
00  TO  6 ? 

67  IN0«IN0*1 
60  TO  61 

66  1N0«1ND«1 

60  TO  66 

C 6T4nrAR0  00076  SCORCH 

*0  00  T7  IOIAbI.IOIO 

lN0aNJIP*10fA 

17 ( AHG 1 l AHG) — X t JNO) ) 54.56.77 
TT  CONTINUE 

PO  TO  110 
06080  Ma*!*I? 

16  a NUHPTSINI) 
lANPa* 

A*0IX>M2 

NjjPalH 

lOlPalh 

17(4?  .07.  X <10*18)1  80  TO  SIX 
16(4?  .LT.  X(IP»1)>  80  TO  SIX 
60  TO  140.41.42).  MfTH 
81  I Ha | O 1 H 

1 Aa 10 1 A 
MaINO 

lPNCVlXtlllsfA 
88086  N7aIP»l»»IO*lO*lA-IO 
NNaNf-I© 

IP c IP* In)  M6.88.8l 

00686  IP  <X<NC)-00066.5C0)GT. 113.113 
00667  PCT  a l INC) 

60  TO  «5 

86688  1P||P>  P6.118.83 

88  IP(AMAX)  <1  INC). X INN)  >-88888. 5C8)«0.U3.U3 

80  Per  aXINt')  — (X  IN$)  — AX)  • <X INC ) — X <NH)  ) / ( X <N$)  — X (NS— 1 ) I 
60  TO  86 

81  IP IAM6X) IXINCI »XINN).X INF-1 >.XINN-1 D-88888. 5C8)8X. 113.113 

82  Per  ■ 1 1 X INS* *A2) • I < X INN) — Al ) ax  INN— 1 ) - I X INN- II— Al)*X INN) 

I ’ — I X INS- 1 ) —AX) • I IX  INN) — A1 ) #X INC“1 ) - IX  INN— 1 ) — Al ) *X INC) ) ) 

2/ t IX  INS )-X INS*1 ) ) • IX  INN) -X  INN- 1 ) ) ) 

60  TO  86 

V3  |P<6MAX||  XINE).  X INE-1 ) ) -08888. SC8)  8A.U3.U3 

84  PCT  a XINt.)-<  X INN)-A1 ) • I XINt)-  XINE-DI/I  XINN>-  XINN-ll) 

85  60  TO  <86. 88. 88). IP 

86  O' (MS  T 6 aPCT 
60  TO  87 

C X OH  V VALUE  OPP  TOP  OF  TA8LC 


A -SO 


NAOC-TT024-30 


212  IFUACTiIAPO.II)  .ST.  It  SO  TO  11 
60  TO  12 

11  IOTAbIOIB 
iMOaNJlM.IOI* 

10 (Hal 

HftaT 

IF ( TACT  1 1 APS. 1 1 1 .CO.  3)  00  TO  176.011*  IASS 

IOIHa-1 

HSa6 

60  TO  (76.61 1 « I ARO 

C * OR  Y VALUE  OFF  BOTTOM  OF  TASte 

312  I*NT9* I ACT ( I AftS. 1 1 1 

60  TO  (12.13.Ul.  IRNTR 

12  H«a3 
BFTOHN 

13  IOIHa-1 
IOIAal 

iNOaHJI P* IQ I A 
60*6 

00  TO  (76.011.  IARS 
U I ft I Ha l 

IOt Aa2 

iHOaNJlP. 101 A 
NAaT 

60  TO  (76.011.  I ARO 
97  ItaJl-1 

96  Fc (aOUHSTb- ( X (NMI -A3! • (OUMSTO-FCT) / (X (NM1 -X (NJl I 

99  RFTt'RH 

74  Ua3 

lLa3 

On  TO  101 
110  6fta2 

60  TO  V9 

C 7 VALUE  OEF  TABLE 

112  I FHTPal ACT ( 3. I I ) 

60  TO  (12.21.221.  IPNTR 

21  Ua3 

IL»3 
Mat 
KtMaHJ 
60  TO  101 

22  1F(M(NTBl  .EO.  HAXTBL1  SO  70  12 
IF  C 1 1 .EO.  M1NTBL1  I IaMINTBL* 1 

I«a  1 

IL*2 

KMaNJ 
HA  aft 

60  TO  101 
113  HA  aft 

60  TO  99 

' 1*10 


A-Sl 
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subroutine  timewisitime) 

COMMON/XFLOAT/A (SOO ) /IF I XE0/I A UOO ) 

COMMON/C  BF /B  ( 20 0 ) / 1 C HF / 1 B ( SO ) 

COMMON/GAINl/GA ( 100 ) 

Common/ thlock/tpbnt* isoo) .tprntb (200) 

CoMMON/rnLOC«/IPt.OT  ( 1*)  • IPRMT  (11) 

COMMON/CONEM/EMCONV (lb) .PSCALE (2* U) 

DIMENSION  IP1 (1) ) *IP2(ll) tIP3(ll) .RPRNT(ll) .OPRNT(ll) 

DATA! IPRNT< I) .1-1.11)/  1102b .11002, SI 080.11001. 1 100 3. SI  083. SI 070. 
1 S1174.12001. 12019, 12017  / 

Data  ti71/6mtimf-S  / 

I F ( T I ME .07 • 0 • ) RO  To  10 

PO  1 J-1.11 

IB) | J) ■ JPPNT ( J> /1 0000 

IP?(J)B()PRNT(J)>IP1 (J) *100001/1000 

IP1(J)*I PNNT ( J ) - I P 1 (J)*10000-IP2(J)*1000 

00001  CONTINUE 

On  2 j-1.11 

IF ( IP2 ( J 1 .FO.l)  RPRNT(J)-TPRNTA(IP3(JI  ) 

IP ( IP2 ( J) .F0.2)  RPRnT(J)-TPRNT«(IP3(J)) 

00002  CONTINUE 

PPtNT  3.T1T1,  (RPRNT(l) .1-1.11) 

00003  FORMATdX.AA.il  (AlO.lX)  ) 

00010  CONTINUE 

DO  II  J-1.11 

IF(IP2IJ).E0.1)  ORRNT ( J) -A ( 1P3 ( J) ) -EMCONV ( IP1 ( J) ) 

IF ( IP2( J) ,E0.2)DPRNTCJ)-R(IP3(J) ) -EMCONV ( IP1 I J) ) 

0001 1 CONTINUE 

PRINT  b.TIME.  (OPRNTin.I-l.il) 

00005  FORMAT  ()X,FS.2,U(lX.G10.4)> 

RETURN 
F NO 


SUBROUTINE  OPLOT 

COMMON/XFCOAT/A (500 ) /IF  I XEO/I A (200) 

CORMON/CHF/8 (200) /tCHF/I8 (50) 

COMMOn/GA iNl/bA ( 100 ) 

COMMON/ THLnCK/TPRNT  A (500 ) , TPHNTB 1 200) 

COmmON/uaT /OATT I T ( 15) .DaThDU0)«CHTSP»$CALE<2»1*)» 

1 tmmAA.NPLOT ( lA) , I SCALE 
C0MM0N/UAT2/DATPLT (300,15) 

COmmON/ORLOCK/IPLOT ( 1 A) , IPRNT (11) 

COMMON/ CONFM/EMCONV ( lb) .PSCAUE 12,14) 

C0MM0N/SCP/MTNANS(14) .MPLOT (14) ,10AT(14) 

0 JMF  NS  ION  DAThO) (6) .UATHD2 (6) .0ATMD3(6) ,0ATH04(6) .0ATM0SI8) • 
1 .OATHOb(A)  ,0ATm07(7) 
njMFNSJON  TRUF ( l 024 ) 

EOUlVALf NCF (FAC.GA(l) ) 

FOI'IVAI.FNCE  (NCnT, IR(3A) ) 

FUUlVAtENCE (NHUN.IA(IOS) > 

E OUt VALENCE (rAITIC.A (242) ) 


A-S2 


uuuuuuuuuuuuu 


I 

V 
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EQUIVALENCE  («<AIT»A(1TT) ) 

EQUIVALENCE (CO. A (256) > 

FQUlVALENCC(VC0lC.A(236i I 

EQUIVALENCE ( tLTORB. IH (21 1 I * dwt  NO, 18(201) • (NCHK « 18(22) ) 
EQUIVALENCE (RKQ,B( 160) ) . (TLEAQP.B(l6l>  > • ( RKORRB ,8 ( 167) ) 

FOU! VAC  INC F ( TLA8HB.R ( 168) ) < (RKORAY.B ( 169) ) « (TLEAOAV»8(170) ) 
FOUIVAlFNCF(TLAGAV.R(1T1) ) , (PK0R0A.RI176) ) , (RPBOA.tH  1 79) ) 
EQUIVALENCE (TLEAOOA«R( 100) ) , (TLAOOA, 8(181) ) 

EQl/t  VALENCE (TAuaCOA.M ( 186) ) • ( TAUACNS.H (187) ) 

EOUl VALFNCE (IPOAMP.IR (261  I ♦ ( I OUAhP . J H ( 2 7 ) I . ( IRDAMP . IN (28) ) 
FOUtVALENCE(MMA0.8(10A)  ) • (PITCH*, HUIOI  ) 

DATA  (NPLOT  II ) « 1*1  < 1* ) /!*•!/ 

DATA  CHTSP/.1968/ 

DATA  FAC/1./ 

oat a ( (Scale  d » j i . i» l .2) »jai»i*)/2.,”2.*2.»-2.»ioo.»o.»i50«*o», 

1 110«,VO.«20.»"5.*20.»”20.*0.«»100. ,150  «,0,,7S, , 25. • 5 . . -5  * • 10, , 
2~1  A. .20., ”5., 50. ,“50./ 

OAT  A ((IATTIT  ( J)  « Jal  .15)  /10HRLONSTK“IN  , 1 0HR(.ATSTK>1N  • 

1 IflHRUUPtO-I*  . 10NTMTNC-D.  »10HTHROT-O»  ,10MTMET-0,  , 

2 iomphi.(),  .lOHPSI-O.  »10MVRW»F/S  «10HACWT.  < 

3 10NALTfi-F/S  ,10hME-FT.  *IOMALFA-OEO  »10MVE-FT.  < 

A 1 OHTImE-SEC.  / 

OATA  (OATHOI.I)  ,Jb1.*0>/10HAV-8A  , 10MS IMITATION  , 


11AM 

21'MwF 1GHT» 
A 1 OHVEOIC 
51  AmlE*OP* 
51 OMTLAtfWM* 
b ) AmRPHOA* 

7 IOMILTUPR 
7 l OH 
61  OH 
910H 
1 1 OH 
OATA 
Data 


»10H 
1 1 OH 
• 10H 
, 1 OH 
, 1 OH 
> l OH 


.lOHIWINO* 
« lOMlPOAMPa 
•IOMPITCMMb 
/ 

oatmot (5)/l ohchart 
iscale/i/ 


, 1 OHPyHa 

, 1 OH  cum 

» 1 OHRKO* 

, iohrkorrp* 

.10HHKORAY* 
» lOHTLAGRRa 

,10h 
, 1 OH 
, 1 OH 


, 1 Oh 


ilOH 
, 1 OH 

, l oh 

, 1 OH 
• 1 AH 


,10HNCHKP 
.lOHHMAOa 
, 1 OH 1 00 A HP* 


SPO 


/.OATMOT 17) /lOMINCH/SEC 


UATAlEHCONVd) .Ial,15)/1.,A.AA16,.AS3S«,1A.5919,.30A«,,092903, 
1 . 02x3166. 5 15. 30««, 47. 61 15, 1.3536, 6. 4526,2. 5A«l.«l..l./ 
tNRLlSM  TO  HFTRJC  CONVERSION  EMCOnv(I) 


1 
1 
1 

0A105 


1. 

A.AAlR 

.A538V 

l*.5Vl9 

• 30am 

•0920YJ 

.02*3160 

515.3009 

*7.6)15 

1.353m 

6.A516 

2.5A 

POINT  105 

FORMAT ( 10X. 15MPPL0T  called 
OATHU(3)«OATE(0) 

OATHO (* 1 aTIHC (A) 


CPE  to  NEWTON 

LH-H  to  KILOflRAMS 

SLUO  TO  KILOGRAMS 

FEtT  TO  METERS 

FT**2  TO  NETCH**2 

FT«*3  TO  NETERA4J 

SLU0/FTAA3  TO  K ILOORAM/N£TER##3 

LR“E/FT»a2  TO  NCwT0N/METER**2 

SLU0-FTAA2  TO  KlL00RAH«Na#2,FT-LR-F  TO  NTN-N. 

rN**2  TO  CH**2 

IN  TO  CM 

) 


A-53 
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0 A 1 00  FOBMATUlO) 

OOtOl  FnB»AT(A10) 

00102  FORMAT tF10. 4) 

MEwInU  2 

wo  I TE ( 2* 1 00)  NRUN 
Wbitf(2«102|  w AJTIC 
WRITE (2. 10?)C6 
WRITE (2* 10?)  VFOIC 
WRITE (2. 10?)Bkq 
wRITE(2.10?)TLEADP 
wRITE(2.10?)MKDBRB 
WRITE (2.10?) TLAGBfl 
woirec?.io?)BKOBAr 
WRITE (2. 102IKPBOA 
WRITE (2. 1 02) TLAGRB 
WRITE (2.100)  1LTURB 
WRITE (2. 100)  IWINO 
wRI Tb (2. 1 00)  NCHK 
WRITE (2. 100) IPRAKP 
WRITE (2. 10?)HMAG 
WRITt (2.1 0?) PI TCHM 
WRITE (2. 100) 1UDAMP 
WRITE (2. 10?)  CMTSP 
RFWINO  2 

RFAOI2.101)  UATHD16) 

OF  AO (2.101)  OAThOIB) 

RF  AO (2.101)  OATHD(IO) 

*BFAf)(?.101)  0ATHDU2) 

BfAO  (2. 101)  UATM0U4) 

RFAf>(2.101)  OAThD (16) 

RF  Al)  (2. 1 0 1 > DATMD(IR) 

RFAO(2*101)  DATHD(?0) 
of ao (2.101)  OATHO (22) 
of aO (2. 1 01 ) OatmD(?a) 
of  AO (2.101)  OATHO(2b> 

BF  AO (2.101 ) DATHD(PA) 
ofao  (2.101)  DAThDOO) 

BFAO ( 2. 1 0 1 ) DATHO ( 3? ) 

BF AO ( 2 . 101 ) OATHO (34) 

BFAO  (2.101)  OATHOOO) 

BFAO (2.101  I DATHDOO) 

BF  AO  (2.101)  OATHDUO) 

RFA012. 101 ) OATMD7  (6 ) 

xwmaawtpmafrchtsp 

IF ( IRCALb.f 0.0)  GO  TO  400 
On  ?oo  1*1.14 

IF ( APS (BSC ALE (2 . 1 ) ) . GT . ABS (PSCALE ( 1 • I ) ) ) PSCALE ( 1 t I ) ■ 

1 AHR(PSCALf (2. I) ) 

00200  cn*iTlN('E 

On  .TOO  1*1.14 

iF(AHSIPSCALFd.I) ) . IT..  00001  IPSCALt  (1. 1) -SIGN  (.  00001. PSCALE  ( 1,  J) ) 
» * At.  Oft  1 0 ( HSCAUE  ( 1 » 1 ) ) 

N*F 

1F(F.LT.0.)  N*E-1. 

C*C-H 


4 


I 
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D-10.»*C 

IF ( (1..UT.0) .ANO, 40.LT.2.) ) 0-2  • 

IF ( (2..LT.0) .AN0.4D.LT.2.5) )0«2»5 
IF(  (2.5.LT.D) .AND.CD.LT.S.) >d-s. 

IF(5..LT.M  0-10. 

PSCAlE41.1>-0#10.-*N 

IF((*SCalE (2.1> .OT.O.)  PSCALE CZ» I ) -0. 

IF(PSCAlE <2.l> *EO.O.)  SO  TO  300 
PSCAlE  1 2 • I)  ■••’SCALE  ( 1 , 1 > 

00300  CONTINUE 

OO  350  J-1.14 

SC«LE < 1 . J) -PSCAlE ( l « J» 

SCALE (2. Jl -PSCALE (2.  J) 

IF (SCALE (1  ,J) .EO. SCALE <2»J) ) SCALE ( 1 .J) -SCALE ( 2* J) *1 . 
00330  CONTINUE 
00400  CONTINUE 

00  10  1-1. ft 

OATHOl (I)«OATHOII) 

0ATH02(I)-0ATH0(6*I) 

04THUJ(I)«0ATH0(12*I) 

04THU4 ( I ) -OaTmO ( 10* I ) 

OATH05 ( II ■OATMO (24*1) 

O-THOb ( I ) sOAtHO  < 30 ♦ T } 

00010  CONTINUE 

fan 

DO  11  I ■ 1 * 4 

00011  04TH0I <I)«OA TWO (36*1) 

CALL  PLOTS ( I BUE, 1024,1) 

CALL  EACTOP(FAC) 

CALL  PLOT (0.  .40., -3) 

CALL  PLOTI0..-1..-3) 

CAl.L  SVmkOL (2»*0.» • 13.0ATH01.0.*60) 

CALL  SYNhol (2.*-. 2b. . 15.0ATH02.0.,  00) 

Call  SYMhOL (2. ,-.S,.15.0ATN03»0.»60) 

CA|.L  SthnOL  (2.«-»75»»  15.0ATH04.0. .00) 

CALL  SYFHOL (2*  *-l • • . 1S.OATHOO.O*  *60) 

CALL  SYHHOL (2**-l«25» » 15*1*ATMD0«0«  .60) 

Call  SYHHOL(2.t-l.»,.15.0ATH07.0..70) 

DO  110  Ja 1*14 

IF (SCALE ( 1 . J) . CO. SCALE (2. J) ) SCALE! 1 • Jl -SCALE 42*  J) *1 . 
»F(NHLOT(J)  .£0.0)  *C»« ♦ 1 
IF (NHLOT (J) .€0.0)  OO  70  110 
IF(«PLOT{J)  .EU.l)  OATTIT  I J)  -TPftNT  A ( I OAT  ( J)  ) 
IF(^lOT«J)  «E0.2( OATTIT  4 J) -TPPNtb  ( IOAT  ( J)  ) 

YTJT— 2.7tt7-l.024-(  j-K-1) 

IE IJ.6E.V)  TTIT— 3. 267-1. 024- (J-K-1) 


OAT T -OATTIT (J) 

CALL  SYnHOL (0.«YTIT».15,DATT»0.«10) 
call  NUHHf •( 1.»yTIT*.T07». 15 « SCALE < 1 ,31*0. .2) 
CALL  NI)«Hfcp  4 I..YT1T-.707.. 15 .SCALE (2.3) ,0.«2) 
CALL  PLOT (2. » YTIT-.7H7.3) 

CALL  PLOT (2.**MMAX,yTIT-»7#7»2) 

CALL  PL»T»2.*KNMA*.VTIT*.7II7.2) 

CALL  PLOT (2. ,VTIT* .702,2)  . 

CALL  PLOT 42. *77 IT- .707 .2) 


I 
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I 

CALL  PLOT (2# * VTIT *2) 

CALL  PLOT(2.«XhnAX.YTIT.2> 

CALL  PL0T(2.*YT1T.3> 

ja»THM*x«l. 

no  20  1»1*JM 

CALL  PL0T(2.*CmTSP*I.YTIT*.1.3> 

CALL  PLOT(2.*CHTSPM*YTIT-.1.2» 

00020  CONTINUE 

xo«?. 

XIP-2. 

YO»YT I T- . 767* <OATPLT(l.J)-SCAL£<2*J>  >*1.574/ (SCALE (l.J) 

1 -SCALE (2«J>> 

CALL  PLOT (XO. VO. 3) 

NCnT)»NCNT-1 

no  *0  l «2«NCNT 1 

XI«2.*ChTSP*0ATPLT(I.15> 

TP(xl.LT.XlP)  XI»X1P 
XIP»*I 

IP(OATMLKI.J)  .GT.SCALEU.J)  ) DATPLT(l.J)-SCALEa.J) 

IfJCATPLTd.J)  .LT.  SCALE  (2.  J)  ) D4TPLT  ( 1 . J)  bSCALE (2. J) 
yIbvT1T-»7B7*(DATPLT(1 . J) -SCALE (2*J))*1«574/ (SCALE (l.J) 

1 -SCALE  12. J) I 
call  plotc*i.vi,2j 
000*0  CONTINUE 

CALL  PLOT (0. * YTIT”1 .02A.3) 
ooi 10  Continue 

XP«6.*XnM«x 
Ir (XP.LT.12.)XP«!2. 
call  plot(xp.o..999> 

PrTliPN 

End 


Subroutine  shop 

COMMON/ x FLOAT/ A (S00) /IFJXED/I A (200) 

COMhON/CHF/P (200) /ICHP/ItHSO) 

Co— ON/OATA/O  (300) 

DIMENSION  ICHN«F(4.3) 

U I -FUSION  PAP (17) 

OT-fuSlON  N)IM(3| 

01  PENSION  AV(17,3).$T0(1-7.3).XmIN(17.3>  .OMAI (17.31 
oihfnsion  IIPOINT(H) 
n t he ns i on  hotdke (7) 

OIPFNSION  1 TOUCH (3) 

FOUIYALENCF  (ITOI'CH(l)  »1A(10)  ) 

F 'Mil  VALE  NCF(  JLANO.Ifi(SO)  ) 

EQUIVALENCE  (A(0001)  ,PM1) 

FO<lIv*LtNCE(A(2)  .THET) 

F9»II valfnCE (A (3)  .PST) 

EOUl V»LENCE (A (2S) .ALFA) 
f OulvALf NCt (A (24) .BETA) 

F Ol)  I VALE  NCE  ( A ( 35 ) . GAP  V ) 


A-S* 


naoc-tto2*«3o 


f 0*  1 1 ¥ ACT  MCE  I A « 78 1 « neo » 
lOUtVACFNCElAlOO)  |ACT0> 

F0UT¥Al.»NCE(A(231).TMeTIC) 

eomivacencc  iaies?) .rsiic> 
f a<d  valence  <A  (23#)  t vroici 

EO'ilvA'.  D.CE(AIJS0)  .R20) 
r *ti  »Atr<*cc  (©*».  a (3»>  > 

FOUIV*UNCEIV**.A<TO)  I • (TMTN.il IT)  ) 

ra»u  vAtrucr  f TMR0T.ii  i*»  > » (rlonstk.hiti  >•  ihc»bii*o>  i . ixe.biDd  > 

FOHlVAtlNCKVf  .A(1*?>).<ACG.A|1Ta)).(VC8.AI1T5)) 

vautVAiFKCF IAIl.B (?) ) • IMJ0AE0.nl )1 ) ) . IRLATSTK.H(9> ) , IAtTCOM.il 1*3 
• I I . IAtT0C0“*M|lAA) I • IMLNSTKO.n («) ) • ( THH0TIC.B 1 151 ) • I AtEAIC.il *2) 

000*02  ),(TOTRM.NlE0>).lrC0M»Mll*5)).(XC0N»8ll*6>)  . I ITOUCM ( 1 > . I A 1 10) ) 

EOMlvAClNCE (ACT.AIH3) ) • litTSTKO.nl 101 ) • (VX.A(200> ) . I VV. A 1201)) 

FOUI VAtfMCE |iS!C0M.»l) SO) J.IAMlCOM.A (1  AM) > . ITHETCOM.i ( 1 AT)) 

FO()l  VAtFNCC  IVXCOM.i  1 1 *9) ) 

Kail)  WAt  A MCE  I AtTCOM.i  1 1 *3)  ) • I At  TDCOM.H  1 1**)  ) 
tool  VALENCE  1 1 A 1 1 ) . 1 MODI  ) 

FOUI  VAtA  *»CF  I I0V0K  . I A I IS)  ) 

POUIVACEMCE  IlMOV.IKdl  ) «IIC0N.ltM2)  ) . (ITRANS.I8I6)  ) 

FOUI V ACT  MCE  I It  AMO.  IH  1 3) ) 

FO*)I  VALENCE  1 1 A 1 43 ) • ISHOM ) 

2 OU I VALE MCE  1 1 A I N*)  . JNUMHR) 

|f>'HV*UNCt  (1A(90)  • ICHNRF  (1.1)  ) 

COI»lVAtkNCP|MOT0*€  ID  .A(AAT)  ) 

FOUIVAtf MCE  I I A ( 10S) .NiUN) 

H)'IIVAtEMCF|i(20)  .TOTiM) 

EHIIVAtEMCE I1MIA) . IZEiO) 
f 0111  vit)  MCE  I In  1 10)  .ISMiRT) 

EOMTVAttMCE IIMI011) . I COiV) 
tOUlVACFNCE (1*101*) .ITO) 

EOUt  V *1  E MCE I1HC017) . 1 USE  R ) 

POl!TUAt(NCP(IJl?A0)  .MUM(l)  ) 
f OKI V*LF MCE  1 0 1 OA ) .PAR  1 1 ) ) 

TOUT VALENCE 101021). AVIl)) 

E (VI I VALENCE  ((MOT?)  .STD  ID) 

POM1 VAtFMCEIDI 123) .XM1MI1) ) 
fO'MvACD'CC  10  ( 17a)  .OMAX  ( 1) ) 

F 0M| VALENCE (0(2?S) .0P01NTI1) ) 
t O')  IV  ACT  MCE  (0(2*0)  .NEXT) 

EOillvACANCE  (UTliRM.A(il)  ) . (VTURS.A  (62) ) * (MTURH.  A (63)  ) 
f Olll  W*tk  nCE  ( XT  1 .A  I *99)  I . ( YE  1.  A I *001  ) 

T O'll  V AtlNCC  (AtTO.A(iO)  ) • (AtTOCOM.i(lAA)  ) 

OATA  I ICxNMF (l«t).L*l<3)/3.*«5/ 

DATA  I ICHNMP I2*t) .t»l .31/11.12.13/ 

OATA  IICMNNP(i.t) .L*l.3>/19. 20.21/ 

OATA  JTOR/IO/ 

IP(IMOOF) 10.900.100 
00010  CONTINUE 
|OAa0 

00  11  l«1.3 
MlW(l)*0 
bO  11  J*1 .17 
AY  I J. 1 > *0.0 
STO ( J. I ) *0.0 


A-ST 


i 

| 


i 


NADC*TT02*»30 


XMTNlJ*I)al.0E9 
0M4X ( J* I ) »-l.0C9 
000 n CONTINUE 

DO  1?  Jal.ll 
D»OINT(J|aO,0 
00012  CONTINUE 

00100  COmT I NUt 

ITD*0 

IE ( JL*N0>  2*2* 1 

00001  !TO>0 

00  3 J«l** 

IE  (ITOUCM(J)  .EO.l ) I Trial 
00003  CONTINUE 

00002  CONTINUE 
iMOVaO 
ICONaO 
ITPANS»0 

IE(VP*.LT.100..AND.TMTN.OT.*O..AND.ITOP.EO.O)IMOV»1 
IE (VPa.GT.100..ANO.THTN.GT.20..AN0.ITDP.EO.0> ITRANSal 
fr  (vuk.C.T.  100.. ANO.THTN.LT. 20.. AND.  ITDP.EQ.O)  ICONal 
HOOF  P* lPOOE 
IE(IC0N 1102 *102*101 

00101  CONTINUE 
E»1 

GO  TO  *01 

00102  CONTINUE 

IE  ( ITHANS) 301 *301 *201 
00201  CONTINUE 

Ft? 

GO  TO  *01 

00301  IE ( ] MOV  >009*609*302 

00302  *a3 
00*01  CONTINUE 

PAP  ( I ) aHLONSTK-BLNSTKO 

PAN (2) *OP 

P A# ( 3 ) bTmROT-TmPOT I C 

PAO (A) «PL ATSTK“BLTSTKO 

P AN  ( ** ) aHUUPED 

P4P(6>«XE1 

Pap  < t l »te 1 

Pap ( h) «alTD»ALT0C0n 

PAP (V)auTUPP 

P AP ( 1 0 1 aVTUPP 

PAO(] l)aVX-VXCOM 

Pap (12) aThET-THETCOH 

PAP (13) bHETA 

PAP(l*)aPSI-PSlCOM 

PAO (lb) aPHl-PHlCOM 

PAP ( IP) » ALT- AL ICON 

PAP  ( 1 MawTUBR 

1:0  *02  J* 1 « 1 7 

AV(J*K)bAV(J*K>«PAP(J) 

STI)(J*K)»ST()(J*K)  ♦PAP(J)««2 

IE (PAN ( Jt .OT.ONAX(J*E) >OMAX(U*K)aPA»(J> 

IE  (PAH  (J)  .LT.XMIN(J.K)  ) XMINI  J.IOaPAP(J) 


A-SS 
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00*02  CONTINUE 

MIM(1)«NUM|1)*IC0N 
Iviim  ( 2 I "NUN  (2)  « ! TPANS 
M|<4(3)«nuh<3)*Im0V 
00901  CONTINUE 

IE(jl*nO.EO.O>  00  To  409 
ifuovok)  60i.60i.5o2 

00502  CONTINUE 

IE(I0A)  503.503.601 

00503  CONTINUE 

0*0 INT ( 1 1 »TNET 
U*OINT  (2) »AlT”*LTC0m 
D«QInT(3)«yE 
IQA«I 

90601  CONTINUE 

IE (ITOI609.60V.603 
00603  CONTINUE 

D»OI*T («►> »KE 
0*0 1 NT (SI ■ye 

DPQInT (6) «TMET 
0*0 1 nT IT) 6 
OPOINT 

DPQINT <*,) mUHI 

0*0  IN T ( 1 ft ) bH£TA 

CpoinT  1 1 1 1 bALTO-mOTOKE  (21 

1 TO*  1 

00409  CONTINUE 
ITOPalTO 
00900  CONTINUE 

PETUPN 
t NO 


9UHPOUT1NE  OATSAV 

COMMON/ X F to AT / A ( 500 1 / 1 P I XEO/ 14(200) 

co*"OM/Chr/fiteoo>/te»r/Ui(90> 

C0PMUN/UAT/0ATT1TI15) .0ATH0(*0> *CHT$P. SCALE (20) . 

1 TMMAA.NPLOT(U)  .I5CALE 
CO»mON/|)AT?/OATPLT  (300.15) 

COMNON/t.HLOCK/IPLOTI  1*)  .IPHNT(ll) 
tONf«ON/COKEM/tMC0NV(15) .PSCALE (2. 14) 

C0mm0N/SCP/MTHAn4(1*( .MPLOT ( 14) . 10AT I 14) 

eovi vale ncp ( I A ( 1 ) . I mode ) 

EQUIVALENCE (NCNT.IB136) ) 

EQUIVALENCE (NT IME.AI30*)) 

EQUIVALENCE (A (303) .TIME) 

Data ( f plot ( I ) .J»l .l*)/l?2007t 122009. 12201 It  12014. 12014. 

1 1 1002. 11 nol. 1 1003, 51070. 51003*51000. 52140.1 1025.52142/ 

OATA  ISCALE/0/ 

OATA  ISET/0/ 

IP (IMOUt) 1.1*6 
IPU5ET)?. 2,1000 


00001 


NAOC-TT02*-30 


00002  Ofl  3 J«1 * 15 
00  3 I ■ 1 • 300 

00003  DATPLT<I,J>bO, 

00  7 J«l*l* 

PSCALE(1,J)b-1.E9 

PSC*LE(i>«J)Bl.E9 

00007  CONTINUF 

CO  100  jal.l* 

PTQANS(J)bIPlOT (J)/10000 

POLOT ( J>«  t IPLOT (J)-HTRANS(J) *10000 1/1000 

104T (J)*IPLOT (J)-*TRANS( J) *lOOOO-NPLOT ( J) *1 000 

ooioo  continue 

TSFT»1 

ncnt»u 

TMMAXbO. 

TIP?»0. 

00  TO  1O00 
00006  I<FT*n 

nnMB^TiMt/300. 
ir (WT1-F.LE.1S.)  0TIMB.05 
ir (TINF-TIN2)  1000,*,* 

0000*  T|P2*TI»»2*0T|M 

nCNT»NCNT,1 

triwCNT.GT.300)  eo  to  1000 

DO  200  ja 1,1* 

ir (mmlot i ji .ru. i > oatplt (ncnt. j* ■* « idat  t j) » *emconv imtrans  t j» i 
ir (mplot c j) .£0.2)  oatplt (ncnt, j) «e ( idat ( ji >*emconv (MTRANS(J) ) 
ir (OATPLT (NCNT • J) .QT.PSCALE ( 1 , J) ) PSCALE ( 1 » J) "DATPLT (NCNT, J) 
ir (OATPLT (nCNT.J) . LT. PSCALE (2, J) > PSCALE (2, J)«DATPLT (NCNT, J) 
00200  COnTINUF 

OATPLT (NCNT, 15 )aT I ME 

TiMAXaTJuf 

01000  CONTINUE 

ir  (NCNT. f»E. 300)  NCNT«300 
PFTllKN 
END 


. 

Subroutine  printo 

COmmon/XFLOAT/A (500 ) / If  I XED/I A (200) 

I connON/ChF /p (200 ) /IC6F/1H (50 ) 

CONNON/bAT  A/D (300 ) 

DjMfNSION  AUP (11,2) 
i dimfnsion  rut ( l i ,2) 

DIMENSION  av ( 1 7 ,3) ,STD(17,3),XMlN(17,3) ,0max 117,3) 
DIMENSION  DATE1 (21 
DIMENSION  DPOINT(ll) 

Ot«FNS10N  PI (IT, 2) 

OIMfNSIOF!  H J ( * , * ) 

M ANSION  MK  (11,2) 

(•  INMlSlDN  Kf(6) 

DIMENSION  KD (6) 


A-OO  - i 
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DIMENSION  NUMO) 

DIMENSION  OUT  IB, 3) 

DIMENSION  PaP(17> 

DIMENSION  SHM<a,3> 

FQUIVALENCEdA(l)  • I MODE) 

EQUIVALENCE.  (t*IO*3)  .ISMOWI 
FOUIVALFNCE  (I*  (0«A)  .INUMBR) 

EQUIVALENCE  (!A(«0>  .1CMNME ) 

FQU!VALINCE(IA(10S)  .NRUN) 

EQUIVALENCE  (M»(A)  .I7FRO) 

EQilt  V ALE NCE  ( IB  1 10)  • ISmPRT ) 

EQUIVALENCE  (MMOll) .ICOPY) 

EllifVALFNCf  < 16  (01*1.  I TO) 

Foil  I VALENCE  ( Id  1 0 IS)  .IDA) 

FOttlVALENCF  (0(250) .NUM { 1 ) ) 

EQUIVALENCE  (0(0*)  .PAP  (1)  ) 

FQUtVALfNCE(D(021><AV(l>) 

EQUIVALENCE (0(072) .ST0<1>) 

EQIII  VALENCE  ( 1 A ( 199)  .N2) 

EQUIvALEECE(0(1?3)  .XmIN(I)) 
fO>ll  VALENCE  (0(174)  .QMAX  (1)  ) 
rOillvALENCE  (0(225)  .OPOINT  (1)  ) 

FO'I  I V ALE  MCE  (0(2*01  .NEXT) 

EQUIVALENCE (TAf «A 1*93) ) , (TVE.A(*92) ) . (TSCPSEC.A (*9l ) ) 
EQUIVALENCE (PE OAF .A(*90> ) • (PEOVf. A (*«9) > • (PCQSC.AIAHS) I 
EQUIVALENCE (ULNAE. A (*07) ) . ( PLNVf . A ( A«6> ) . (RLNSC. A (A»5) ) 
EQUIVALENCE (PLTAE.A (*<•*)) • (RLTVE. A (*83) > # (RLTSC.A (*02) ) 
DATA  ICOPY/l/ 

OATA  (Ft (I) .1*1.61/1. A .7.10. 13. 16/ 

DATA  (A(l(!)  . 1*1. 6) /3. 6.9. 12.  IS.  17/ 

0*TA(HI (1 .1) «Ial .2)/*H0L0N  ,*MST«  / 

0*TA(HI (02.1) .1*1. 2)/*HOM  .Ah  / 

OATA(HI (03.1 > .1*1.2)/*H0TNR  ,Aht  / 

OATA (Ml (4.1) .I»1.2)/*HOLAT  . *HST<  / 

OATA(H| (OS. I) .1*1.2) /4HHU0P  .*MtD  / 

DAT  A (H I (6*1) .1*1.2) /AMXF 1 . *M  / 

OAT  A ( Ml (7.1) .1*1.2) /4HYE 1 »*M  / 

P*TA(Nl  (O.J).I»1.2)/*MAL7l>»*Me  / 

OATA  (Hi  (9.1)  .1*1  . 2)  /4HIITUR.4HR  / 

OATA (Ml (10.1) .1*1. 2)/*MVTUM.*MH  / 

0A7A(MI (11.(1 .tal.?)/*HVXe  .*H  / 

OATA(NI (12. t) . Ial.2)/*MTMCT  «*ME  / 

OATAlHt (13.1) .1*1, ?)/*HOETA  .AH  / 

QATA(MI ( 1 * . T ) .lal.2)/*HPSIE  .AM  / 

QATA(Ht(lS.!)«!al .2) /AMPHlE  .AM  / 

OATA (MI (16. I> • 1*1 «?) /4MALTE  .AM  / 

OATA (Ml (17.T)<I*1«2) /*HWTUR  .AMR  / 

OAT* (MU ( 1 . t ) . I ■ 1 . A ) /4MTME  T «*MMA  .AHXIMU  »AMM  / 
OATA  (HJ(£. I ) , Ial ,*) /AHTMET.AHA  MJ  .4HNIMU  .AHM  / 

DATA  (MjO.I)  .tal«*)/*HZf  .AH  MA.AHX1MU.AHM  / 
0ATA(HJ(*,I) .I»1.*)/*M?E  * *H  MI  .4HN1MU  .AHM  / 

Data imk ioi .n »l*l .2)/ah7mCT.aha  / 

DATA (HF (?« I ) .Ial .2) /AH  HE. AM  / 

OATA(HH (3.1) • Ial«2)/*H  Yt  .AM  / 

DATA (HF <*. 1 1 <tat.?)/*M  XF  .AM  / 


A-61 
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n»T»(MK(S.I) tIalt2)/*M  ve  «*h  / 

DAT A (HK ( 06*1 ) 1 1 a 1 1 2 ) /ANTmET  t*HA  / 

0ATA(MK (07t n • 1*1 *2) /4MAI.FA  « *H  / 

OATAlMRIb.I) tI»1.2)/*M  PSI  t*H  / 

DATA (HKIOOt I) t I»1 t2)/«HPHl  t*W  / 

DATAIHIlllOtl)  tIalt2)/*MBFTA,*H  / 

niltIHKIlhl)  tIalt2)/*NALTD  ,*HE  / 

Data  nmic/2/ 

>rtI7EM0>  2019*019101 
00101  CONTINUE 
iNOaOiO 
DO  102  l«l93 
00  102  J*l9«  . 

S'n*i  ji  n«o.o 

Ol/T  ( J*  1 ) *0.0 

102  continue 

DO  103  I a 1 9 2 
DO  103  J* 1 9 1 1 
AUN(JtI)*0.0 
2* IT  ( J«  1 ) »0 .0 

103  CONTINUE  , 

arTi'MN  ' 

201  CONTINUf 

301  CONTINUF 

DATE  1 1 1 1 aQATC (0) 

OATFl I2|bTIME(0) 

IF CITO.NE. 1.00. IDA. NE.l.)  00  TO  30* 

ANOaANO* 1 « 

DO  302  I a 1 • 3 

. S' 1*4  1 1 9 1 1 aSUN  ( 1 9 I ) »QmAX  ( 10  9 I ) 

SlIN  (2  9 1 1 aSIIM  (2 1 I)»*MJN(10*I) 

SHM|39llaSUN(j9l)*0NAXI169l| 

SilN|*9llaSUN(«9l)«XMIN<109l) 

Stl-4 <■>•  X laSUNjSal)  *OMAX  ( lOt I)*«2 
SUM(fct  1 1 aSUMIbt I ) ♦XMIN ( 109  I)a*2 
Sl|M|79l»aMiN(7,II»0NAX(169l)*a* 

S<|N(H9t)aSUNlN9l)*XMIN(lb9naa2 
OUT (1*1) »SDM ( 1 9 1 > /ANO 
OUT  ( *9  I ) aOlIT  (2, 1) /AND 
OUT ( 2 1 1 ) «SUM ( 2 9 I) /ANO 
OUT  1391) aSUN 139  I ) /ANO 
Out !*•!)■ sun 1A9J)/ ano 

OUT (St  1 1 aSOPT (SUM (59  I ) / ANO-OUT (1*1) **2) 

OUT (At  I ) aSbPT ( SUM ( 6 9 1 ) /ANO-OUT  <2*I) **2)  J 

OUT (7 1 1 ) aSUPT (SUM (7  9 I ) /ANO-OUT (3t  J ) #*2) 

out (m  # i ) asuPT 1 sum i»« n /ano-out (*» i > **2> 

302  CONTINUf  I 

DO  303  J* |,ll 

A*IM(  J»  1 > aAUM(  Jt  1 1 *0P0INT  ( J) 

Auu ( j,2 ) baum (j, 2 I *OPOINT ( JI #,2  j 

HIT  ( J 1 1 ) aAIIM(  Jt  1 ) / ANO 

HIT ( Jt*» aSOPT ( AUN( J,2) /ANO-BUT ( Jt 1 ) **2) 

303  CONTINUf 
30*  CONTINUE 

DO  *002  J*ltlT 


A-6* 
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00  *002  !■! ,3 
IPlNUNd) .20.0.)  00  TO  305 
*V(J.I)a*V(J.l)/NUM(I) 

*Tni»STo(j.T>/Mu*«crj-*v«j.i»*»2 
I* (STOl.LT .0*1  00  TO  30« 

STO(J.l)a$OBT(STO«J. J)/N0M«I)-*V(J,|)**2) 

00  TO  307 
305  *V(J.I)aO. 

300  STOfJ.DaO. 

30T  CONTINUE 
*002  CONTINUE 

POIINaNE 

00  6000  ULal .ICOPY 

iPAOfat 

POINT  5000 

POINT  5001 .nPUN.OATEI (11 «0ATE1 (2| .IPA8E 
POINT  6021 
POINT  5025 

POINT  5 0 2 2 * NON ( 1 ) « NUN ( 2 ) • NUN (31 
POINT  6023 
DO  6001  NOal,6 

ic«pc»*»o» 

lOaKD(NO) 

POINT  5016 

PPtNT  602* • ( I (HI ( l « J) , Jal .2) • (AV  ( I « J) «STO( I « J) *QNAX ( I • J1 
000001  .iMINII,J),jalO>»I>IC«10l) 

*001  CONTINUE 

ip*nraip«*e*i 
POINT  5011 

POINT  S001.m«UN.0ATS1(1> .0ATE1 (2) ,IP**C 
POINT  6027. *NO 
POINT  60J3 
POINT  502« 

POINT  5017 

Point  502V.(HJ(1.J)«Jo1.*) .OUT (1.1) .OUT (5*1) .OUT (1.2) .OUT (5 .21 
000001  .0117(1.3)  .OUTI5.3I 

POINT  50.’* • (MJ(2.J).jal«*) .OUT (2.1) .OUT (6*1) .OUT (2.21 .0UT(6.2) 
000001  .OUT (2.3) .OUT (0.3) 

POINT  502V. (NJ(3,J> »J»1»*> .OUT (3.1) .OUT  17.1). OUT (3. 2) .OUT (7.2) 
000001  «OI|T  (3.3)  .OUT  (7.3) 

Po.nt  502V. (NJti.J) • Jal .*) .OUT (*. 1 ) .OUT (0. 1 1 .OUT (*.2) .0UT18.2) 
000001  .OUT (*,3) .OUT (0.3) 

Point  601* 

POINT  5030 
POINT  601* 

POINT  6031 . ( (HK ( I » J) .Jal .2) .OPOlNT (I) .BUT (1.1) .OUT (1.2).tol.3) 
POINT  5016 
Point  6032 
P»I»'T  5016 

POINT  5031. ( (HK(I.J) .jal, 2) .OPOlNT ( I) .BUT (1,1) .OUT (1.2). 1 a* .11) 
PPINT  5011 
6000  CONTINUE 

POINT  7000 

POINT  7001, TOP. TVP.TSCPSfC 

point  7oo2.peo«p.peovP,peosc 


*-63 
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POINT  7003.BLNAF.RLNvF.RLNSC 
PPtNT  /OOa.BLTAF.RLTVF.RLTSC 
TOOO  FOBmaT (1UX« 30H  PILOT  RORK  LOAD  FUNCTIONS 


TOOl  FORMAT ( 10  X • 1 OH  TAf ■ 
l .F10.AI 

7602  FOPMAT(10*.IOHPFO*F« 

I « F 1 0 • * I 

7003  FOBmaT ( 10* < IOHRlnAFb 

1 .FlO.A) 

700*  FORMAT ( i ox  . i oh  blTAF- 

1 .Flo.*) 


•FlO.A.lOM  T VF» 

.F10.*» 10H  peove« 

*F10.**1 OhNLNVF ■ 
,F10.*.10m  rltvf* 


) 

.F10.*.10MTSCPSEC» 
»F10.**1 OHPCOSC* 
.F10.A.1 OHBLNSC* 
.Flo.*. 1 Oh  rltsc* 


0*000  RETURN 

0*000  FOBmaT U2X.17HCRF  fLlOHT  DATA  ) 

0*001  fobmmT 1 1 2X  . 1 2HBIIN  NUHPFB  • 14.20X .6H0ATC  .2A10. lbX.bHPAGE 

000001  . i*> 

0*0 1 1 F obmaT  1 1 hI ) 

050 1 6 FOBMAT(lhO) 

05017  FOBmaMIh  ) 

0*021  F OOMAT ( lHO.ARX . ] 7MSTATISTICAL  DATA  ) 

0*022  FOBMAT ( 1H0. 15X.2DHFIBST  INTERVAL  SAMPLE  SIZE  .IS 
0O0001.  7X.CPHSFR0N0  INTERVAL  SAMPLE  SIZE  .IS 
000002  . TX » 2«*mTH I BO  INTERVAL  SAMPLE  SIZE  .IS) 

0*023  format (1h0,15X.*hmfan.7x.3hPMS.3x.7hmAxImim4.3X.7hminIMUM 
OnoOO | • 6 A .*RMf  AN*  7X .3hBMS . 3X • 7MMAX1 MIIM.3X . FHMINIMUM 

000002  . bX.AHMf AN.?X.3HRMS.3X.7hMAX1MIJM.3X.7MMIN1MUM) 

0502*  F0PmAT(1H  «?A* , 1X.12F10.3) 

0*025  FORMAT ( IMO  « 1SX . 1 OMCNVNTNAL  .SOX 

OnOOOl'  21hThaNSITI0N  mode  «1VX. 

000002  PAM  Ml# Vt * MODE  > 

05026  FORMAT | IMO. AOHPROH  - PRINTOUT  CALLED  WHEN  ISHPRT  • 0 ) 

05027  FOBmaT ( 1m0.1VX.*4MCONSECUTIVE  RUN  AVERAGES  AND  STANOARD  DEVIATION 
0000015.20X*F3.0.2X.*mBUNS) 

0502R  format ()ho. ?vx.10m  AVEPaOE  .6X.10H  RMS 
oooooi  . ox. iom  average  .ox.ioh  rms 
000002.  fcX.lOM  AyfRAaE.BX.10H  RMS  ) 

0*02V  FORMAT«10*.*A*.  *X.blF10.*.*X) ) 

0SO30  FOBMaTIIhO.IOX.IHHVAlUES  at  THE  ramp  .27X.7HAVERAOE  *13X.3HRms  ) 
0*0  31  FORMAT  1 10X.2A4.4X. FI 0. *.30X.F10.*.bX. FlO.A) 

0*032  FORMAT (IMO.IVX ♦ 20HTOUCNDOMN  PARAMETERS  ) 

0*033  FORMAT (1M0.2VX  .1 OMCNVNTNAL 
OflOOOl .P*x.21mTRANSI7ION  moOA 

000002  • 1 lx .2*MM0Vt B MODE  ) 


FNO 


(•lock  Data 

COwmon/CMF/R (200) /ICHF/IB (SO) 

COmmON/TmLOCK/TpbnTa (500) .TRRNTH (200) 

COMMON/xFLOAT/A ISOO) /IFIXED/I A (200) 

0 r-FNSlfA  TPAl (50) .TPA2 (50) .TPAJI50) .TRAA(SO) .TRAStSO)  .TPAMSO) * 
1TPA7 (50) .TPANI50) .TRA«M50> .TPAlO(SQ) .TP81 (SO) *TP52(S0) .TPB3(S0) . 
2TPM  (SO) 


A-b* 
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0I-CNS10N  DxP* ( 15)  .DvPA(15>  .DZPAU9) 

EQUIVALENCE  (TP*  1(1)  .TPRNTA  (111.  (TPA2( l ) • TPRNTA  (91 ) > t 
1 ( r*A3  1 1)  t TPRNTA 1 1 0 1 ) > . ITPA4I1) .TPRNTA  USD) . (TPAS(l) t TPRNTA (201)1 
2 1 ( TPA6 ( 1) .TPRNt  A(2SD)t(TPA7(l) .TPRNT  A(301))t(TPA8(D . TPRNTA (351 } } 
3t ITPAVI 1 1 t TPPNT  A ( AO  1 ) I , (TP A 10 ( I ) t TPPNTA (49D I 
EQUIVALENCE (TPHNTBIl) .TPhl  ID  ) * ( TPRNTB (51 ) .TPS2  ID)  . ( TPRNT8  1 10D  * 
1TPA3ID  It  (TPRnThcISD  .TPb4(D  I 

FOHt VALENCE  I SPAN  # A 1 1 p D I t (ChORO • A ( 182) I t lOTt A < 1641 I t ( AREA t A 1 180) I 
1 1 |02Pt  A ( 35*1  | t (P20.AO&9)  ) 

EQUIVALENCE IPTUPHtA(S2)  I t IUTUPB*A  (53)  I t (RTURtitA  (5*1  I 
Font  VALENCf  (AIVT)  t«)  t (XMASS  t A ( 1 301  I • IOAPA  ( D t A ( Id  A I I 
Foil  t VALENCE  1 1 b ( 1 D t 1 COP  VI 

f -lilt VALENCE  inVPAIl)  t A (2101  I t ( VDIC i A (229)  I • IPMt  ICt  A (2301  I 

Foot VALENCE ( THE  TIC. A (231)1 t (PSI ICt A (232) I t (QAMVIC.A (233) I t (OAmnIC 
l.A(?34l ) . (PRIC.A(239> I t IUBtCtAU3«llt(RHICtA(237|)t(VE0ICt 
2A(23«Dt(iICtA(23«Dt(v!CtAI240)).(HlCiA(24D)t(XlkXlCtA(2A3l) 

FODI VALENCE  ( X 1 Y Y I C • A ( 244 ) ) t (X IZZICt A (2451  I t I X t XZICt A (2461  I t 
l (VFIlSLtC.A  (247)  ) « (WM»TlCtA(24«)  ) t ( WA  JTOt  A ( 241 1 I t (OZP4 ( D t A (257) ) 
EQM( VALENCE (02NtA(39N) ) t (P20tA(399) ) t ( ThROTIC • 3 ( 1 5 1 1 

EQUIVALENCE  (TMTvClC.HdHI  ) t (VS.BI30)  I t (VNRHICtdOS)  ) 

EOtlt VALENCE (Vt»HlCtR(36) I t IbtTAlC .P ( 37) ) t (ALFA|CtH(42) I 
lout  VALENCE (IFLATtlA (4) ) t 1 1071 1 1* (»D ) t 1 1072 1 1 A (42) ) t (IOT3t 
1 1 A 143) ) . I ICQ. 1 A (44) ) .(IAEARtlA(l04)) t (NAUNt lA(109))t( 1 NOE XT t 
214(110)  ),  ( I “ACN 1 1 A ( 1 14 ) I t (NUSEI)tlA(lOO)  ) t ( t EULR 1 1 A ( 1 4*1  > t 
3 (IT  ASK  t IH  I TO ) ) 

EQUIVALENCE  ITEM jlt«(4VI ) t (TPPJltRISOD t (TQJl.BISD  I 
lOllt VALENCE  (COURSE tA(  110) ) 

EQUIVALENCE (TV4wjltR(S2) ) 

EQUIVALENCE (0193) tWPQOTD 
EQUIVALENCE  UFLAT.IAI4)  I 
DATA  tELAT/1/ 

DATA  KQOOTl/4.4/ 

DATA  ICf>PV/l/ 

DATA  SPAN/2S.<S/tCMOPO/7.VS/tOT/.05/tAREA/201./tO2R/.0l745/t 
1 020/47.3/ 

OATA  PtLiRK/O./tQTURfl/O./tATUHB/O./ 

OATA  ALTAIC/*./ 

OATA  VNTUPH/O./tVeruPP/O./tVOTUNII/O./tVNV/O./tVEV/E./tVOV/O./ 

OATA  IOT 1/25/t IDT 2/90/. IOT3/100/ 

OATA  COnPAF/O./ 

OATA  VS/4V./ 

Data  vt*MC/o./.VNiMic/-lo./ 

OATA  OANVlC/O./tnAHMlC/O./ 

OATA  Pb I C/0 . / 1 NH  tC/0./*RPIC/0./ 

OATA  PN| IC/O./t ThE TIC/Ot/tPSI IC/O./ 

OATA  (f)*PA(t)  tlaltlsi/  4. 6V. -4 . 5. -5 . 73 . -5 . TS. «. t 50 , . 1 8. 08 , 

12S.4StAl.H3t ll.44t90.44t4V.9t34.V29t34.92St2Q.Sl/ 

Data  (UYPA(t)«l«D19)/  0.t0.t8.34t»».34t0.t0.tQ.tOtt0.t0.t0.t0.t 
I ) l.vb.-l 1 .04.0.  / 

OATA  (UZHAIt) ||||. 191/9.47 .4. 7.4.5, 4.St 13. .9. .4. .7. 79.7.429. 

1 O.tU.tlll.  04  tO.tO.tH.Ol  9/ 

PA7A  pFuEL  1 C/400.  / .WAT IC/ 100./ *7fPJl/V90 . / tTRPJl/1 110./ 

OATA  THJ1/A12./.TYAPJI/440./ 

OATA  X|C/100./tVlC/100./ 

OATA  xlxx IC/*?99«/ . XIYTIC/293S4./.X IZZIC/2T906«/,xIXZtC/B74./ 


A-05 
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data  icg/1/ 

Data  *aito/12SOo./ 

DATA  ITASK/2/ 

Data  inpext/*/ 

Data  nose  0/2/ 

DATA  0/32.2/ 

Data  !Gkap/i/ 

DATA  VDIC/O./ 

DATA (TPAlltl .1M.S01/10M  PHl-oee.  . 10H  TMETA-0EG.10H  PSI-0E6.  . 

1 IOh  phip-raD  1 1 Oh  TMETR-RAD  « 

21  Oh  PSIP-pao..10MPHID-R/S  .10H  TmED  R/S  .IOH  PSID  H/S  . 

3 1 OH  SINt  PHI  .IOH  C05INEPM1.10M  SIN  THET  ,10M  COS  THET  ,10H  SINPSt 
A , 1 Oh  COSINEPSItlOH  Til  • 1 OH  T21  .10m  T31  , 

llOM  T 12  . 1 OH  T22  • 1 OH  T32  . 1 OH  T13  .10M  T23 

I «10H  T1J  » 1 OH  ALPA-DEb.tlOH  BETA-PEG  «10M  ALFAR-RAO, 

I I OH  RET AP-P AO. 1 OH  AIFD-R/S..10M  BETD-R/S. . 1 OH  SALPH  ,10m  CalPH 

I , 1 OH  mm  beta  «10h  cos  BETA  , 10m  GAmv-RAQ. « 10H  gamh-pad.  , 

I I OH  PH-SAP/S..10M  OA-R./S.  tlOH  MH-R./S.  ,10H  PL-P/S.  • 1 OH  Ol-P'S 

I • 1 OH  RL-PAU/S. «10H  HLH-P/S.  1 1 OH  OLH-R/S  »10H  RUB-R/S.  . 

I I OH  PT-n/S.  , 1 OH  OT-H/S  , 1 OH  MT-P/S.  . 1 OH  PHWN-R/S. • 1 OH  ORHM-R 

1/S.  / 

DATA <TPA2(I) , J»1 ,S0) /10HRHWM-R/S.  . 1 OH  PTUPH-R/S  f , 

110m  OTURH-R/S,10M  PTUPh-P/S.IOH  PH0-P/S2  , 1 Oh  0HD-R/S2  ,10H  pro-h/ 

IS?  .10H  uh-k./S.  . 1 Oh  VP-H./S.  , 1 Oh  WH-M./S.  , 10h  OTURtfH/S.lOM  VT 

1URH-M/S.1PH  w TURR“H/S, 1 OH  VM-M/S  >10h  VE-M/S  .lOH  VO-H./S.  . I 

11  Oh  Vtt-H/S  » 1 OH  VT-M/S  ♦ 1 OH  VG-M/S  *10M  VRW-H/S  . 1 OH  MACH-  1 

IPO.  « 10m  vmP-h/S  »10H  VER-h/S  . 1 Oh  VOR-H/S  ,10h  VEQ-KNOTS. 

110w  vNw-H/S  ♦ 1 OH  VFh-h/S  ,10H  VOw-M/S  ,10H  . 10m  AlTD- 

IP/S.IOh  xiOHP-P/S, 10m  XLATD-R/S » 10H  ALT-mTR  «10h  XLOM-PAD  . 

11  OH  XLAT-PAO  • 1 OH  S1NLAT  . 10H  COS  LAT  , 1 OH  WN0-M/S2  . 1 OH  VFO-M/ 

IS?  .10H  VOO-M/S?  , 1 OH  AX-H/S2  » 1 OH  AV-M/S?  .10H  A2-M/S2  1 1 OH  AX  1 

IS-w/SA  * 1 OH  AYP-H/S?  ,10H  A/P-M/S?  • 1 OH  G-M/S2  , 1 OH  • ' 

I 10M  «10H  / I 

DATA(TPA3M> .1M.S0I/10M  VCAL-KTS  .10H  • 1 OH  XPR-M£TER  • ' 

I I OH  VPM-Mf TFR.lOH  HPR*MCTER.10H  UNP-METER. 1 Oh  OER-mETER. 10H  Pr-MF.T  1 

IIP  • 1 OH  pTv-mFTFH.IOm  COUPSE-R.,1OHXLATR-RAO..10HXLONR-RAD.»1OhCLA 

1TR-PA0.  . 1 OHS  1 W THETR  .10HCOS  THETR  » 10HXIXX-KG-mE» 10HXI YY-KG-P2, 
110HXt22*KG«M2.10HXlX7-KR-M2,10H  XHC ( 1 ) . 1 OH  XMC(2)  tlOH  XMC<3> 

I .10H  X^c ( A ) ♦ 1 Oh  XHC(b)  • 1 OH  XHC  CGI  «10H  XHCCTl 

I I Oh  XMC(H)  .lOH  XMC(V)  , 1 Oh  XhC(IO)  .10H  XMASS-KA  tlOH  CL 

I * IOh  CP  ,10m  cx  , 1 OH  CY  tlOH  C2  <10H  F 

lAX-hTN  , 1 OH  FAY-NTW  ,10m  FX2-HTN  tlOH  FEX-NTM  «lUH  FEY-MTN  • 

I I Oh  FEZ-WTN  ,10H  Fa 7-NTM  ,10H  FrtY-NTN  ,10m  FGZ-NTN  ,10m  FT7-NT  I 

Ik  , 1 OH  FTY-NTN  , IOH  FT7-NTN  , 1 OHFNORTM-WTN, 1 OMFE AST-NTH  , 1 

11  OH  FUOHN-MTN  / 

0ATA(TPAA(1),1»1,S0)/10H  FG-NTN  .IOH  CROLL  MOM. IOH  CP1TCMH0H  , i 

1 1 OH  CYAW  MOW  • 1 OH  TAL-NT-M  ,10mTAH-HT-H.  ,10HTAN-NT-M  ,10HTEl-NT- 
1P 

1 ,10MTEP-NT-H  ,10HTEW-WT-M,  . IOh  tal-HT-m  ,10h  TOM-nt-h  .IOh  tGN- 
1MT  - . .IOH  TTL-NT-H  , l Oh  TTM-NT-H  .IOh  TTn-nT-h  .IOh  OTl-stC  ’. 

IIOh  0T2-SIC  , 1 Oh  0T3-SFC  .IOh  hr-HETFR  tlUH  ,10H 

I . 1 Oh  , 1 Oh  XCG  HETER’IOh  YCG  PFTER.10H  HCG  HETCR  . 1 

II  OH  WAIT-KA  . 10MORAR-NT/M2.10HUBARC-H/H2.10H  ARE A-M2  .IOh  SARN- 
IA. .IOh  CHORP-H.  .10MHHO-KG/H3  .IOH  XNOSA-M  ,1oh  XHAING-P  • 1 OH  X 

IPwHA-H  .IOH  XLPNG-M  .IOH  OXPlT-M  .IOH  OXTAIL-M  .IOH  OXRMDRft-H.  ' 
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1 1AHXE»NTNOZ-HiIOHXBEA»KI|-M,10HI)XPJET-M  i.  1 OHOXRE  ARPJ-Mi  1 OHOXT  AW 


IJET-mUOhPXPwGJ-m  < lOHOXLWOJ-H 

Uah  wx-M/s  / 

OaTAITPAMI)  iIMtSOl/lOH  VY-H/S 


• lOHDXLWOJ-M  • l OM  OXCG-H 


♦ 7*  IIOH 


I • 1 OH  SOUHO-H/S 


IiIAh  UYMOSG-H  • 1 OH  OVHAJh-M  tlOM  OYfiWNGG-Hi  1 OHOYLWNG-A-m . I OH  OYPL 
1T-M  •lOhOYTAU.-M  .IOhOVRMOMA-H  , 1 OHO YFRWT«rfZ-H  • l OMOYREARNZ-M  . 

1 1 AhOyEHTCMJ-Mi  1 OHOYRPTCHJ-H ( 10hOYYAWJ-m-  , IOhOYMWG-J-M  « 1 OH  PYI.WG 
lJ-H  .lUMI)YCfi-H  i 1 OH  XPILOT-M  * 1 OH  YPILOT-M  tlOH  ZPILOT-H  1 10H 
1 .10H  VOIC-H/S  1 1 OH  PHUC-OEGilOH  THETIC-Oi . 1 Om  PSIIC-O.  . 

Mom  AAHVIC-fl.tlOH  GA**HlC-0. .10HHbIC-P/S.  i10h  UH1C-0/S. ilOH 
1/S..10H  Vt»lC-«TSilOH  x JC-hETEH* 1 Oh  Y IC-HETER • 10h  hIC-METEBiIOhwA! 
1TJC-KG  • 1 OHX T XX 1 C KM2  • IOHXIYYIC  KM2i 10HXI/2IC  KHSt 1 Ohx I XZ IC  KM$. 

1 IAhmEU 

It  L I C”*G*  l OHWWA  ITlC“KAil  OH  WEUEfKO  ilOH  ««AT-KU  / 
0ATA<TPAA<I|.I*1.50i/10H  WAITQ-Atf  iIOh  wSTORE-KGiIOH  . 

UAH  DXCGO-m  * 1 Oh  P7CGO-M  ilOH  CG-PCT  *10H  PZNOSG-M  . IOHOZmhG-H 
1 .10H|>ZB«.6-m  i1amOZL»G-m  »10Hf>ZPLT-H  ilOHDZTAIL-M  . 

110h07*m|>BG-m  . IOhOZFNOZ-M  i10M02RN07-M  . IOhDZEPTCHJ-H, IOhOZBPTCH 

lJ-HilOHOZYAW-J-M  .10M07M»G-J-M  i 1 0MR7CWG- J-H  • 1 OM7CG-C0R-M  iIAmHOE 
1 C<  1 1 1 • 1 OHHOkCK 1 2 1 -M . 1 OHHUECK ( J » -M , 1 OHHUECK < A I -M 1 1 OHHUECK  C 5 I -H i 2« 

1(1  AH  111 OHX I GNG”H  .10HXIGHQ.M.  ilOHXtGMWG-M  • 

1 10HXlA|.WG- 

1H  I 1 OH  111 OHY IGMO-M  ilOHVIRMQ.M  • 1 OHY I GRwft-M  i 

1 lAHVtGCwG-M  i2«(10H  I iIOHHIANG-h  ilOMHlGMti-H  , 

I lOHHtnwi.0.M  ilOHHtGLkft-M  • 6*  ( 1 OH  I / 

DaTaiThaTiI) .I»I.S0)/2*(10h  lit  OH  TIHE-SEC  i10h  RUMe-SEC 

1i?T<MIOh  )«1  OHTEhPHAT  • 1 OHPPESRAT  • 

I I OH  • 1 OH  OTIMI-SECiIOH  T 1-SEC  iH*(10H  1/ 

Data (TPAh ( 1 1 il«l iSO) /7*l 10H  111  OH  02R*RA0/0i 1 OhRZO-O/RAO 

i .♦•non  i 

lilAMRHO2-t'G/Hj,10HHRHOZ-H  • 1 OHT AMA-OEG-K  • 1 0HPAHH-M/M2  , 

1 1 AhTTOT— NTH  1 1 OH  PTPT-N/m2i 10H  UELAT-K  iIOhSOTEmPR  I 

13*(10H  | i10HXMCC1-1/Sh10hxhCC2-1/Sii10hxmCC3-I/S  iIOhXMC 

1CA-1/S.iI0HXMCCS-1/Sii10HXHCC6-1/S. , 1 OHXMCC T-l/S. • 1 OmEIHX-NnS . i 
1 1 Am? xmy-Nms  • 10hEXm?-NMS  i6* ( l Oh  IiIOm  STATE  111  • 

UOH  STATE  i?|  • 1 Om  STATE (3l  ilOH  STATClAl  • 1 Oh  STATE l$l  i 1 OH  STATE ( 
lfcl  • 1 Oh  CONT(l)  • 1 OH  CONTI2I  • 1 Oh  CONTI3I  iIOh  CONTIai  / 

OAT A ( TPa V ( 1 1 1 1 * 1 • SO ) / 1 OH  CUNT(S)  iIOHCOnTIAI  i3«<10H  I 

lil AH  UMjc-M/S  * 1 OH  yhIC-M/S  i 1 Oh  *4IC>M/S  •♦•IlOH  li 

HAH  IIHO-H/S2  • 1 AH  VHU-P/S2  ilAH  »mP-m/S2  • I AHVTWN-n/S  iIOHVTwE-H/ 
IS  1 1 OH  VTwn-H/S  ilOHWHTUHB-H/SilOHVETURH-H/SllOHVOTU»l»-H/St 
11 1*11  OH  I iIOHVPKNMOS-HSiIOHVDNMN-M/S  • 1 OHVONRW-M/S  • 

U'>«vnNi.b<i-M/*iJ«llOH  I i IOhVOENS-h/S  • 1 OHVDKHN-h/S  • 

1 IAHVOCPpR-h  ilOHVOFUWG-H  1 3* II  OH  I • 1 OmmOTPCG-m 

1 ilOMMOTNA-H/S  • 1 OHHOTDHG-H/S  i 1 OHHOTDHh-m/S  / 

OATAlTPAlOlll ilaliSOI/l OHHOTDL A"H/S i2* 1 1 Oh  IiIOH  YR-m/S 

1 •••• < l AH  I / 

CAT A I TPHl II)iI*IiS0|/10H  STAB-Ottf.ilOH  AIL-OEO  • 10H  MUO-DCSi  • 
UAH  • 1 OH  STABl-OEG* 1AH  HSAS-0  • l AHRLOMSTK-GMi 1 OHPLHSTXO 

1-CH  ilOHPLATSTK-CHilOHMLTSTl'O-CM’lOHRUDPED-CM  ilOH  VSAS-OEG  ilOHR 
ISAS-ritG  ilOHTHROT-OER  • 10HTHROT  IC-Oi  • lOHTHTNC-Ol  Gi  • I IIhThTN— OEA  i 
1 1 AhThTNIC-OE Ai 1 OHRN 1-PCT  • 1 Oh  TPijT-HTN  iIOhMPEOO-CH  iIOhThPTHN- 

ICPAi 10hThPTHX“OE At  1 AHTHTMN-OEG  i IOhTHThX-OEO  i IOhPhIHN-DCG  • IOhPhI 
IMx-OEG  • 1 OH  PEUHH-CM  1 1 OH  PEOHX-Ch  iIOH  VS-h/S  i2*|10h 
1 | , 1 AhThTNMH-OCGi 1 OMThTNHX-OEGi 1 OHVNWRIC-M/S. I OhVEWHI C-M/S i 1 OHRfTA I 
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(-OEG* IOhSTKmIN-cm  « 10H  STKMAX-CH. I OHRLSMIN-C*  • 10HPLSMAX-CH  , 

10H  ALFAIC-0.«10H  »10H  TFPJ-NTN  .10HTPPJ-NTN  • 10MT YAPJ 

-HTH  «10M  TRRJ-NTN  * l OH  TLRJ-NlN  , 10H  TFP J 1 -NTN.  1 OHTRP Jl-MTN  / 

DA  TA|TPR*II>,1«1.50>/10H  TPJl-NTN  . IOMTYAkJI-NTH  . 1 OHPWOOTE-Kft  • 
?• C 1 OH  ) * 1 OH  TAUCN6-S. * lOMHDRAG-NTM  .IOHTFN-NTN  * 

inn  thh-nTn  . 1 OmvJBCS-H/S  . 10H  UGC-PCT  . 10m  « 10HGEF) 

« 1 Oh  GEF2-1/M..10H  ALTG£-NTN*10MFCP-KG/S.  .10hAL«J>Cm2  • 
10HAFPJ-CM?  .10MAHPJ-CM2  . 1 OH  APPJ-CM2  • 1 OH  AVAHJ-Cm2,10H  CSPLAV 
F • I OhCSPL AyP  « 1 Oh  C»J  * J Oh  CFPJA  .)0h  CwPJA  .lOHSFP 

JA  » 1 OH  SRPJA  • 1 OH  SRJ  * 1 OH  RLAmI-RAD.IOH  RLAM2  t 

1 0 m PHlS-HAD.tlOH  ThFTS-RAD.IOH  HSIS-RAD  .10H  ThETOSP/S. 
IOmPhISK-P/S  * IOhPSTSO-R/S  .10HHtAVE-M.  , 1 OhhE AVEO-h/S. I OHSURGE-N 
. . Iumaiibc.EO-m/s.IOh  SWAY-M  ,iohswayo-m/s  9 1 Oh  xis-m 

10M  X2S-HY TFP.lOH  Y1S-MFTER.10M  Y2S-METEP , 1 OH  X3S-M£TCR , 1 OH  H3S--C 
TF«  ,10h  mIS-mftfb/ 

PAT A ( 1 HHJ II)«!*1»SO)/JOh  XTD-meTEP, 10H  YTO-METER, IOHMIPS-METEP. 

1 ,1H»« AI.-MY  TPP . 1 OhPH  ? POL -HAO • 1 OHHH  | H V-PAO  . 1 OhOhE  GH-p/S  • 1 OMOMf  fiW-P 
✓ A . |OH«OLLH-HAt>  . 10MPITCHH-PAI».10HOH*fiP-P/S  * J OH  PHjP-PAO  tlOMVAM 
H-PAO  « J0HO>.E«Y-P/S  tl0HPHIV-P«U  • 1 OH  * 1 OHOMEGSPG-BS • 

1 OhPh 1 SH&-H , .10HS«AYH-H,  , 1 UHOhfgSmV-PS. IOhPmISMY-R.  .10m  VJP 

.10H  CKO  1 /m Afi . 1 OmCL AD0T-1/R»10m  CLP-1 /RAO. 1 OhC*0-1 /RAO  .IohCYO 
P-l/O.  * 1 Oh  CYH-1/RAD«)0hCLUA-1/U.  .10HCLO-1/RAO  .IOmCmaoT-I/o  . 
IOHCnOR-I/P.  .lOHCNR-l/PAl)  , IOhCYOA-1/OEG.  10HCYP— 1/PAO  .A*tlOH 

) * 1 Oh  hE-MFTFR  • 1 OH  XE-HtTCP  .10H  VE-METf P .IuhAlTCOh-m  , 
1 OhAL  TKCKH-HS • 1 OH YCOM-H , , 1 OHXCOM-H . • 1 OMTMlTC0“-0 . • 1 OmPHI COM- 
0Frt,10HVXCOH-H/S  •lOHPSICOH-O.  / 

PAT  A ( TPH* ( 1 ) . I« 1 .*0  > /?• ( 10H  ) . 10HU05T-H2/S2. 1 OHVOST-M?/S2 

klOHW(iST-H//«2. 10HXFPZ-H.  .10HSW8SW  .10H  SUMS*  .10h 

. 10H  PKQ.U/P/Sf 10MTLEADP-S  f 10HPSAS1-DEG  . 1 OhPSASI I -O-S  • 

10H  * 1 OhPHpSHI-O-S. 1 OHHopSH-O.  * IOmPKDRRB-DPS. IOHTLAGRB— 

S .lOHRrOPA  0*<s?» 1 OhTLFAOA Y-S, . I OHTL A8AY— S • . 10HAYF ILTI-D.  . 

IOHAyFILT-D.  . 1 OhYSASU-K.  *10MKImCT-D.  .IOhRkOHDA-D/O.IOhYSASI-O 
.10HYSASLIH-D  . lOHRPHUA-D/PStlOHTLEAOOA-S.f IOHTLA6DA-S.  .lOHPBW 
S—P.  . 1 OHPwSH J-D«  * 1 OHPS ASL I H— 0.  • 1 OH  AILC-O.  . 1 OHT  AIIaCOA-S.  • 
10MTAUCHS-S.  ♦ 10H  HUD2-0.  »19H  XT01-H.  .10H  YTDI-H.  . 1 OHT AUALPH 

-R.  tV»(10H  > / 

1*0 


C TITLE  BICPRINT 

SUPPORT  INC  RICPRI (TITLE* Al . A2* A3 » 44, AS. AG. AT . AO. A9.N00AT.UI 

c 

c 

COMMON  /XFLOAT/A|500)/IFIXEO/IAl£00) 

AUTHORS  -m.STEmART  AND  D.  ASTXLL-  COMPUTER  SCIENCES  CORPORATION 

INFORMATION  SUPPLIED  IN  CALLING  SEOUENCE 

TITLE  *..  IS  WORD  CONTAINING  4 HOLLERITH  CHARACTERS  FOR  PRINTOUT 
»I  • HEADING 

A2  • 


A-68 
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••  VABIAPl.ES  TO  8E  PRINTED 


A8  « 

NOOAT 


ARRAY (DIMENSIONED  18)  TWO  BOROS  TO  EACH  VARIABLE.  EACH 
PAIR  CONTAINS  8 HOLLERITH  CHARACTERS  TO  8E  USED  AS 
VARIARlE  NAME  ON  printout 
U ...  ARRAY  (DIMENSIONED  V)  EACH  WORD  CONTAINS  A HOLLERITH 

CHARACTERS  DESCRIBING  UNITS  OF  VARIABLE 


FOUIVALENCE  (A(1).RHI).»A(2 
1. (A (26) .MET A) * (A (29) .ALEO) « 
?. (A  06) .GAMH) . (A (37) *R«) . (A 
3 • (A (56) .ORO) . (A (ST) .R80) • (A 
A. (A (TO) .VPN) , (A (Tl) .XMACH) « 

5.  (A  (*»0)  .VOO)  .(A(ll6)tXIXX). 

6.  (A«11V) .XIX7) • ( A ( 131 > .CL) * 
T,  (A  1136) .C7> . (A (136) .FAX) • ( 
h . ( A ( 1SJ) .CLH) . (A) 16A) .CUN) • 
«• (A (167) .TAN) • < A ( ITT) .WAIT) 
A.  (A  ( 1*2) .CHOOJ) . ( A { ?56) *CG) 

*■  )UIVALFNCE  (FFX.A(13v> > . I 
1 . (Pr.r.A  ( 1*3) ) . (FftZ.  A(  1AA)  ) • 
?, (FT?«a(1a7) ). (TEL. A (ISA) ) ♦ 
3.  (TAL'AIUI)  ) . (TGH.A(lh?)  ) . 
A.  (TTm.A(16S) ) . (TTN.Al 166) 
FOUIVALENCE  ( XCA. A ( 1 7 A ) ) . I 
EQUIVALENCE  (P2D  .A (3S9) ) 
Four valence  inrun. i a ( i 05) ) 

FOUlV«l£NCf (lA(lVR) . N2) 


) .THET) . (A (3) .RSI  I . (A (23 1 .ALFA) 

(A (30) .BFTD) . (A (351 .GAMV) 

(3A) .08) . ( A ( 39) »R3) . ( A (55) .RHO) 

(6A) .VN) . (A (65) .VE1 . (A (66) .VO) 

( A ( 76) . VEO) . (A (88) .VNO) . (A (89) .VEO) 

(A (117) ,XIYY) . (A (118) .XIZ2) 

(A (132) .CO) • ( A ( 1 33 ) . C X ) * ( A ( 1 3A ) * CY ) 

A 1 137) .FAY) . (A (138) .FAZ) • (A (152) .CLL> 
(A (156) .TAD . (A (166) .TAM) 

. ( A (160)  t AH£A)  • < A ( ltd  ) .SPAN) 

FEY.* (1  AO) ) . (FE? . A ( 1 *1 ) ) . ( FGX . A ( 1 A?) ) 
(FTX.»(1A5) ) • (FTY.A(146> ) 

(TEH»* ( 169) ) . ( TEN. A (160)) 

( TON. A ( 163) ) . < TTL . A ( IbA ) ) 

) 

YOG.* ( 175) ) • (HCG.*(176) ) 


OIHFNSION  NOOAT ( 18). U (9) 

DIMENSION  UOAT(lS) ,00AT(85) 

DAT*  UOaT/AMOFG* .AHR/S  .AHR/S2.AHNTN..AHN-H..AHM/S..AHH/S2. 
1 AHNCTR. AHPGMZ. AhmTR?. AHPCT  .AHKTS  .AHKO  .ah  .AH  / 

DATA  UOAT 


1/AM 

PH.  AH!  .AH  TH.AHET  . 

ah  rs.ah  al< 

ahfa  .ah  rc.ahta 

?AH 

GA.AHMV  .AmFO 

.ahTD  .amnh  .ah 

RB.am 

.AH 

08  .AH 

RR. 

3*mD 

.am  co. ah 

Cl. ah  CX .AM 

Cy.ah 

CZ.Aml 

.AHM 

• AHN 

. 

A AM 

**hZ  .ah 

T A.  ah 

VN.AH 

vE.ah 

VO. AH 

VR. 

5 A MW 

.and  .ah 

xm.ahach  .am 

XC.AHG 

»ah 

YC.AH 

HC.AH 

*1. 

6AMXX 

•amyy  .amtZ 

.AHX7  .Ah 

ba.ahit 

.AH 

CG.AH 

SR. PHAN 

1 • 

Tam 

CH.ANOPO  .ah 

AR.AhEA  .ah 

Of  .AH 

DA  .am 

OR. AH 

♦ AH 

Fe. 

NAN 

fo.ah  ft  »*h 

TE.AH  TG.AH 

TT.ahri 

«AH»2  . AHR3  .AHRA 

• 

6AM 

Tl  .AH  T2.AH 

T3.AH  TA.AHO  .AH 

OX. AH 

OV  .AH 

DM. 

A AmB 

I .AH6K  <AH 

.ah  .ah 

/ 

VRRK.VHW/1.6R 

C.a-.mD«GAPHaR20 

GAMV0»bAMVAB20 


*•68 


I c*ll  datciowv) 

CALL  TI*tCM«»S> 

| PRINT  l.TITLf 

C 

print  looo  *n2  *dmy *mms 

C CONVERT  ALL  VARIABLES  TO  METRIC  UNITS  FOR  IC  PRINTOUT 
E»»LPk«»«.a53B9 
E«INF«1 ,3Si>6 

, f miaSb1*.S>V1R 

f «rooC»*.*l« 

U fc  mtopO* I • 3546 

t«*FT»*«.304K 

E«ICm«2.s* 

F**4Rf  A»  . 0P2R03 
t «<vS«.t>l*T9 
t mmphV5«.**T03< 

(uspfSbaT.HUS 
>r  T »*N«XlXX»f  MINF 
>1  WM>XI  VY*FMINF 
M77M»*lZ7*f**INF 
XT*7n»*I*7#FmINF 
V »ITi»«»«IT#FMLNK6 
SPANI»«SPAN*F**FTM 

OObn«sCH<i»n*i  MFTM 

XPFAMBAbf A«f MAPf A 
XCBMs AC6*F  MFTM 
VC'?M»YCP»FMFTM 
MC'»M*MC6*tMFTM 
F A»**«Fax»FMFORC 
t aymsFat^I’MFonc 
f »7MsFA7*e MF OMC 
Ffxm»FEx*FmfoRC 
FFYN»FEy*F  MFONC 
FF7M«F£2»fcMFOMC 
FBXMbF6X*FMF0RC 
Fr,vN«F»»Y«f  MFO«C 
F«7“»FG7«tNFn*»C 
FT*M«FT*»fPFOPC 
f TY««»FTY*tMFOPC 
ft/m«f  rmppoMC 
TALM«TAl«FMTOMU 
Ta^naTamaEMTOnR 

TANMsTAN»FMT*>PQ 
TFlm»  T£L#tMTO*I« 

TXmmcTCM*( MTOmU 
* TF»»N«TkN«f  mtoRO 

T«LM*TfcL»»PTOMO 

Tbmm*T(>m*FMTOmO 

TA>«NaT«>N»FMTORO 

TTL^aTTLakPTOMO 

TTMM»TTM«FMTO*»« 

TTNM»ITM*EMTORQ 
vnm«vn#EmFTm 
VF'4»Vt  *f  MF  Tm 
V*)M»VU*FmFTM 


A-70 
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VNOH«VNO»e«rTM 

vrnM»vco»FMrrM 

vpomovdo»fhftn 

VRWN«YRP*fcNfTN 

PRINT  2.QPAT (*i) .QOAT (46) .XIXXN.UOAT 19) <QDAT(4S) .QOAT (47) .XIVYM. 
000001  IJOATIV)  .OOAT (45)  .Q0AT(4B>  • Xl ZZM.IJOAT  19) 

C 

POINT  2.0047(45) «00AT(49> .XlXZH<UOAT(9> .OOAT (SO) .OOAT (SI > .NAITN, 
004001  ||0AT<13>  <00 AT  (52)  <00 AT  (16)  <C0 
C 

POINT  2 <00 AT (S3) <QOAT (5* I . SPANN <U0AT(B) <00AT(9SI <00«T(S6I tCNOOOM 
000001. liOATOM  <uOAT (ST) .OOAT(SB)  • ARCAM.UOAT ( 10) 

POINT  3 
C 

POINT  2.  NOOAT(l) <NftOAT(2) <A1.U(1> 

000001  < NOPAT  (31  <NOOAT  <*>  .A2,l)<2) 

00O00?<  NOOAT (A) .NOOAT (0) .A3.UIJ) 

C 

POINT  2.  NOOAT (?) <NQ0AT (0) < AA <U ( A ) 

000001.  NOPAT (0| .NOOAT (10) <A9<U(S> 

000002.  NOOAT (11) .NOOAT (12) <A6<U(61 

C 

POINT  2.  NOOAT (13) .NODAT(lA) <AT<U(T) 

OODOOl.  NOOAT (15) .NOOAT (16). Ad. U(O) 

000002.  NOOAT (171 <NO0AT(iai »A9«U(9) 

PRINT  3 

c 

c 

c 

c 

POINT  2 .OOAT (TO) <00 AT (411. XCQN.UOAT (0) .OOAT (T9I .QOAT ($1 | ,rCON 
004001.  IIOAT(O) .OOAT(bO) .OOAT(bl) .HCAM.UOAT (0) 

POINT  2 .OOAT ( 1 ) .OOAT (2) <PhI<U0AT(1) <OOAT(3) <OOAT(A) .Tm£T 
040001  .IIOATH)  .OC'AT  (S)  .OOAT  (2)  .PSI.UOAl  (1) 

c 

POINT  2. OOAT  (4)  .OOAT  (71  • A(.F  A.IIOAT  ( 1 1 .OOAT  (0)  .OOAT  (91  .BETA 
004001. 'JOAT(I) .bOATtlO) .OOAT(ll) .6ANVU  .UOAT(l) 

C 

POINT  2. OOAT (01 .OOAT (121 .AtPO.liOAT (21 .QOAT  It)) .OOAT (131 .HCTO 
000001  .11047(21  .OOAT  ( 1 01  «0f)AT<l4l  .6ANNU  »))0AT<1) 

POINT  3 
C 

POINT  2. MOAT ( 15 | .OOAT (16) .PB.UOAT (2) .OOAT (17) .OOAT (16) .00 
004001. ||PAT(2) .MOAT ( 10) .QOAT ( 16) .MH.UUATt?) 

C 

POINT  2 . f.OAT  | IS)  .OOAT  (19)  .PHO.IlOAT  (3)  .OOAT  ( 17)  .OOAT  ( 19)  .000 
000001. MOAT  (J)  .OUAT  (It.)  .UDATI 19)  <HHO<UOAT< 3) 

PRINT  3 
C 
C 

PRINT  2. MOAT (20) .OOAT (16) .CO.IIUAT ( 14) .OOAT (21 ) .OOAT ( 16)  »CL 
®R I NT  2.0PAT (2?) .OOAT ( 16) »CX .OOAT (14) .OOAT (23) .OOAT (16) *CY 
040001. (HAT (1*) .OOAT (24) .OOAT ( 16). CZ 

C 

PRINT  2.MPAT (21 ) .OOAT (25) .CU .UOAT ( 14) .OOAT (21 ) .OOAT (26) «CLH 
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006001  .OP*T(l4>  .00*7(21)  ,00*1(27)  .CL* 

PRINT  3 
C 

PRINT  2,00*7  (2*0  ,00*7  (29)  .FAXM.UDAT  (*)  ,0D*T(26)  .00*7(30)  ,F*Ym 

000001. 1) 0*7 («>, 00*7120) ,00*T (31 ) .FA2M.U0AT (*) 

PRINT  2,00*7(03) «00*T (20) .FExM.UOAT (*) ,00*7(63) ,00*7(30) *FEYM 
000001,  t|0»T(*>  ,00*T  (63)  ,00*7(311  »F  €2***UO*7  (4) 

C 

POINT  2,00*7 (6* ) ,00*7(29) .FGXM.UOAT («) ,00*7(64) ,00*7(30) »F6ym 

000001 .1) 0*7 («) ,QO*T (64) ,00*7(31) ,FG2M,UDAT (4 > 

PRINT  2,00*7(05) ,bl)*7 (20) .FTxm.uOAT (4) ,00*7(65) ,00*7 (30) ,FTVM 
060001  ,<I0AT  (4)  ,00*T  (65)  ,00*7(31)  ,FT2M,U0*T  (4) 

PRINT  3 
C 

print  2.UDAT (32) ,00*7(25) .TALM.UOAT (5) ,00*7 (32) ,00*7 (2«) ,T*Mm 
000001, <10*7 15) ,00*7 (3?) ,00*7 (27) .TANM.UDAT (5) 

print  2.00*7(66) ,00*7 (25) *7Elm»U0AT (51 ,00*7(66) ,00*7 (26) «TENM 
00600)  ,ljn«T  (5)  ,00*7  (66)  ,00* T 127 > .TtNM.UOAT  (5) 

C 

PRINT  2,U0*T  (67)  ,00*7(26)  «T6L"»U‘>AT  (51  ,00*7(67)  ,00*7  (26)  ,76*M« 
00000) .00*7(5) .00*7(67) ,00*7127) ,76NN,U0AT (5) 

C 

PRINT  2 ,00*T I 6fl) ,00»T (251 ,TTLN»UO*T (5) .00*7(66) .00 AT (26) . TTmm 
000001,110*7(5) ,00*7(60) ,OD*T (27) . TTNM.UOAT (5) 

P® I NT  3 
C 

PRINT  2«00*T (33) ,00*7(16) ,VNON,UO*T( 7) ,00*7 (3*1 ,00*T (1 9) »VEDm 
00000)',  1)0*7  (7)  ,00*7  (35)  ,00*T  ( 19)  .YOON, 00*7  (7) 

PRINT  2,00*7 (36) ,00*T (37) ,VR6M,UI)«T (6) ,00*7(34) ,00*7(36) . VEO 
0OO001 . 1)0*7 (12) ,00*7 (39) ,OOAT (40) ,XM*CH 

PRINT  2.00*7(36) ,00*7(62) ,VPWK,U0AT( 12) 

PRINT  3 
C 

c 

c 

c 

c 

c 

PFTOPN 

1 FORN*T ( INI .3SX, X4.27H  INITIAL  CONOITION  PRINTOUT/  I 

2 FORMAT ( 1 OX ,2*4. 1HP,F1 1 ,4, lx , *4, 5X ,2A*,1 HP, El 1.4»lX,**»5X 

006001,  2*4, IMP, Fll. 4, lx. *4) 

00603  FORMAT (lNO) 

01600  Format (1  OX. lOMRtIN  NUNNER.AX , 13, 15X,5M0* TE I , 3X,*9» 1*X ,5MTINE 
006002  ,3* ,*10/) 

tNO 


SdroouTInF  winoc 

CommON/xF  LO*T/* (500)/IFIXFO/I*(200) 
COmmON/CHF /n (200) /ICNF/IM (SO) 
COmmon/0*  INl/(i*  (100) 


*-72 
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e <mu  valence  itii.  a iui  >.  itzi.au '>  i . <tsi.auo>) 

1 .(T12.A(1*)I. (T22< A (20)),(TJ2.A(21>) 

2 . (T13.A(?2) ) , (T23.AI23) ) . (TJJ.AI2*) ) 

Foot VALENCE  IVNT||0B,A(«19)  ) • (VETUH0, A 1*20)  ) , I VOTUM.A (421 ) ) 
EOUIVALENCE  (A (61 1 »UTU0fl) 

FOHtVALI ECt  I A (62)  , VTURH) 

EO’ll  VALENCE  I A (63)  «aTU0tl> 

EOIIIVALENCF  (A  (TO)  .VAN) 

EQUIVALENCE (A(l6*)«0T) 
tODl VALENCE  I A 123*) « VFOIC) 

»Ol'|VAl.fNCr  (XCO.A  I1T4I  ) . (VC0.AU7S) ) * ISTMCTK.AU  16)  I . (CTMCT*. 

1 A < ) lb) ) 

FOII!  VALENCE  (ACT  .A  163) ) 
font VALENCE (A  1303) .TIME) 

fOUIVALfNCf UA||) . IWOOC) 

Foul valF ncf I IONCC . I* ( 14) > 

EQUIVALENCE  (VS.AI36)  ) 

FOH I VAlENCC  (Fmi*.HU12)) 

FOII I VALENCE (ONE**.* ( 111)) 

FOIlt  VALtNCE  I DOST. (M  l S3)  I . I VAST.*  USA)  ) . (MOST. BI199)  ) 

FOtll  VALENCE  I KF6T.ll  US*) ).  (SMBS*. BUST)  ).  (SUSS*. DUS*)  ) 
FOlItVAlFNCFllHU*). (MITCH) 

EQUIVALENCE I0ITCHM, 0(1101) 

EQUIVALENCE  (NCmk  . IN  (22) ) 

EQUIVALENCE (*(*»*> .129) . lb(9A) ,|1S| 

FOUI VALENCE ( ILNURS. IHI2S) I 

EQUIVALENCE I 1MFRZ. IR (2*) ) . IlMINO, IB (20) ) • ( ILTURb. IB (21 I ) 

• FOIIIVAI  ( NCF  IflA  (30)  «6R  1 1 ) ) 

E O' 11 VALENCE (MlS.RIlOOl) 
f Oi  ll  VALE  NCE  ItUISCT.IAISO)  > 

Foil!  VALENCE  (FMTn.n 1 19*1  I • IFRTF.SUOS) ) . (FA TO.* (106)  ) . (VMN.SUOT) ) 
FOUI  VALENCE  I VMfe  .M  1 190)  ) « (VMO.ElUOVI  ) > (TOTURR.B  (200)  > 

0MFNS1ON  00(7), 6RI7) 

0INFNS10N  0OTIT) .00V 1 17). I0OST(7),!0OSI 17.10) 

0 1 ME  NS  I OEI  00*  (7) 

OATA  S*»E>Sf/  1 • / • AUNSM/1 ./ 

OATA  lMiT/0/ 

Oat*  tinj/o./ 

OATA  «>N(I) . !■! .TI/6..6..125..12S..2S..3..3./ 
data  mua/.I/ 

Data  Ml/3.l*lbV2/ 

Data  FC/S./ 

OATA  (INOSTU).  lal.7)/l,3.S. 7.9.11*13/ 

Data  iiw/o/.  ivot/O/.  it»bT/o/ 

OATA  ZN1/.001/.ZR2/1 .S/.VR1/.001/.VR2/1 »S/ 

OATA  AFN7/19V0./ 

OATA I ( I0OSI ( 1 . J) .Ial»7)»J*l» 10 ) / 1 .S.S.7.9, 1 1 , IS, IS. 1 .3.S.T.9, 1 1 . 
1 11. 13. 1.3. 9. 7. 9. 9. 11. 13. 1.3. 3.7,7. 9.11. 13. 1.3.  3,3,7. 9.11, 

1 13.1.3.3.  S. 7. V, 11. IS. 1.13,17,19.21 .23*23.27 .27* IS, 17, 19.21, 

3 23. 2b. /•». 27. IS, 17. 19. 21, 23/ 

If ( fnlSCT) 7.7. JO 

7 I F 1 1 nONF ) 2 , 3 , * 

2 CONTINUE 

0T2*UT 

VOa VFOIC* 1.609 


A-7S 
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<VU.t,T.60)VOmtO. 

Rf 1 OaSORT  (3. 1*199*5900. 1 **003 
PRl 1-SORT (5V00, *3. 1*1S«)*3.*V02400000. 
S110--VO/1000. 

R21O»-j.*VO/*«0. 

2ol*FX*MSll 0*OT  1 
7o>*E  xp  (S21 0*DT ) 

71 1 »-l./IS110-S210> *»K10*  11. -701) 
7l?»l./<S110-S2l0>*RKl0a<l.-ZO2> 

2n*-i./ts2io-siioi*Rim*ti.-zoi>/siio 

Zi**l./<S?l0-Slin)*RKll*<l.-ZO2>/$210 
70111  *FXP<-VO/100.*DT2l 

7111 l*SORT (7l»f 3*3. 1*1 5V 1/100. #<1 .-201 111 
701 1 /*fc  »P ( “VO/1 00 ••0T2) 

7111  ?*Sl»PT  (?00»*3. 1*1 SV)/100**|1* -20112) 
J»*2**?*-3 
00  It)  1*1*7 
►Ox I 1 ) *0 • 

ROVl (11*0. 

ir MONCI.6T.01  IROST ( 1 1 *IR0S1 C I • I ONCE) 
000 10  COMltNut 

RNl*.0*4*SORTIPl> 

fcC*2.#FC*Rl 

ir (VfOlC.Rf .VE01CP)  IZ**1 

vroicR»vtuie 

3 CONTINUE 
PRRRaU. 

URRRbO. 

im?S*0. 

onRPaO. 

R04a0. 

R03aO. 

110*0. 

w4*0* 

»R?RaO. 

O4?RR*0. 

YPRpaO • 

7OR*a0. 

l)OR**U. 

bor«*o. 

aORXall. 

II.1?T**0. 

W4?TA*U. 

>R?RRaO« 

UAR*0. 

VAl*b. 

VA?at). 

V43a0. 

VO*aO. 

VOR*0. 

WORsO . 

UORRsOa 

VORRaU. 

►ORRaO* 

ZRRaO. 
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VP*aO. 

Zo'SaO. 

YP'SaO. 

PACYatAP<-AP«<YC8)/100.> 

ALTlaHlX*%0.-XC6*.l 

P*C7al. 

rruLT.A7.AL71)  PAC7aCXP< I ALT1 -ALT ) /SO. > 

FACY'TACYMACr 

xn«*c<i 

L'Tll8H*”VS,SUAS8*r  ACW*TAR  1 (XO.O..O..  60  » 1 ) 
wr.i»«»-vs»sxHSY»rACw»TAbl ixo»o.t0..b9«l) 

VTllP8«0. 

TI*3aO. 

?*•(. 

YPaO. 

orriiKN 

A CONTINUE 

ir'(i«iNo.ro.o)RrTUMM 
IP (WCHX.GT.O)  PfTUPN 
P«CVaCAP(-Aft*(YCA)/10Q.) 

ALTl*HlS»50.»XCO*.l 

r»r7»l. 

ir (AlT.0T.AlT1)  PAC7«CXP( (ALT1-ALT)/S0.) 

PACV«PACY*PACZ 

xn«xco 

ir (TttXt.7.(ro.l)  xo«>xppz 

(IMSSla-VS*TA«l  ( 70 • 0 • < 0 . 1 68 . 1 ) 

' U»SS»UHSS1 *SUMSP«PACP 
IP ( ILMKmh) 21.21.20 

00021  «PSSla-VS«TAhl ( XO. 0 . .0 . .69. 1 ) 

WPSS*aHSM«S6H«M*rACP 

AO  TO  ?.t 

00020  8*<S5l»«vS»TA61 (X0«0.t0.«70tl) 

«H«$a«hSS  l •SWHSWM’ACW 

00022  CONTINUE 
«XOil./l.*t*VSI 

CT? 6M«CfiS  (ONE GP*  ) ( 1 . • ( VHW-VS)  *VSO)  •TIMe*XO»VSD*PM|P-l  .57)  I MPITCH 
UPt«a2.22*.OOOV*xO 
IP  (liRlK.LT.O.UI  IJhlvaO.O 
>Ml»PlTCM*»*vS*OMlK*CTePM«PACP 
IPCXCO.l T.-22J6.)  UMlaO. 

IP  ( iCO.AT  . X?S)  IIPl»0. 

WHIK.o. Vo..OOlH*xO 
IP(«MlK.Lf .0.0)  WHlKaO.O 
ama^ITrwaavS#WHl<*CTEPP«PACa 
t* (XCto.LT.-ZS3A.)  ORlaO. 

IP(XCG.GT.XZS)  ’AP 1 ■ 0 . 

Sl»(6CT«b  IN  l«C*T  ImC) 

00  1 !■! .7 

CALL  PANHdROSTCl)  .IX.l.l.U) 

•OX  1 1 ) at) 

POY ( I ) »NUX 1 1 ) •PRY JII) 

POY I ( 1 1 aMIY 1(1) «POA*ROY 1 1 ) *0T 
•>0  (t ) »H(>Y  (t ) •$  I n*»CT 
1 CONTINUE 
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SUH2"T*hl  (XOtO.  .0.  .71  <1 ) 

Tl  IH?*T  Ah  1 (X0»0.,0.»72.1) 

DTATbOT/TIih2 

iM?BUbc-P* ( 1,-DTOT) • VS*SUB?*1 .*l*»SO»T ( 1 ./TU62> •DTOT*RO O > *6R ( 1 > 

04?PalM? 

DTOTh«0T/3.33 

| J.-DTOTa)».03MVS*.74**oTOTW»HD C«» •»*«*) 

If (XK.LT. *fi2»0. 

If  ( *r>.oT  .XlSI  hB2«0. 

*02Paai«2 
VY P0Bah2 

V*t.U»U*-SS»UBl*im2 

vn«PBar«5»wHl»wb2 

v*iRhBV*H«'*CTHt  TP-VYPh*STMETR 
Vf HABVYHhBCTHC  TR* VXBR*STHCTB 
ltATBTU»VbM»«Tl?«VfPR*T13*VDHR 
V0TbT2I»VN*»R*T  ??*VCBR»Ti;3*VOBR 
w'TbTJ1*v»AP*T32*VFRR»T33*VDRR 
IflltmT.tO.n  U«T»0. 

IfflyrtT.fo.J)  VMT*0. 

IfCIh^T.fQ.n^lBO. 

ynB701U«WB»/Ill  J»R03 
h>)3BRU(3l  *00(3) 
ii«b70U?«UB»7I 
h')*auUI4)*AM(4l 
V0lBZul*vni«XIl*RO5R 
VA2b702*vG2*7U»ROSP  . 

• vr3b701*va3»7I3*»DSP 
VR*b2u<’«VA*«71*pRO$P 
Of)SP»Hb  lt>)  *«w  IS) 

VAsyGl  • V<>2’»V63»V64 
If  ULTUPb.fo.l)  60  TO  5 
UAaO.O 
VAsO  • 

*AbI*. 

A COKTIHU* 

VTt|bhstfhT*VA 

*T'l*»h»BoT»W6 

7PBPM1  *hr>  < A)  *60  (6)  • (7R 1*ABS  I XD> 
vusPNl >k|i  1 7)  *60  • I YR 1*ABS  C XO  > ♦ VR2) 

lM?AsUbfS*I.IM2 

|iHXAABiih?AS*nTP||R2*«? 

hM/><SP«^fAf«0T*WR2**? 

VaAsV66«VA 

baAbb(>S*«(> 

l»ARRaUGSS»l)T*U6a*2 

vAASBV.»ss«nT*yo*«2 

br,AAs»nSS*l)T*w6*«2 

7asB/rt&*/h 

y»Aav«**Yh 
7PAAs2hSs«OT«7RP*2 
YPAA«TKss«nT<yR*f 2 
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rr<riNf>  so.jo.zs 
00035  CONTIH't 

»*V«TIM0 /or 
ros*«rPi/P«v 
7»S*«ZHS/IUV 
unvopuc^s/pow 

ya<tt«VM/NIV 
wO*6a»(i$/R4v 
IM>T»«U»*?S/P*v 
W4?T  *■<*«•  <*S/>»*V 
U4?HT»'IH<S$/TI»*€ 

»ft7*Ta*l-«>tS/TI"0 

unst»iMiss/TiMC 

Vr,ST-V65S/TIKF 
trtST«*bSS/T!»t 
70ST»Z«S5/TT-C 
YPSTaVrfSS/TlwiE 
00030  COM  INI  t 

]o< 1QISCTI37. 47,33 
33  CO'iTTNUF 

ioptn.orte.orto) 

FM»<F«M,T«(Tt>'f.-TOTU»tn 
JF(PN*s,t-b.?Hl  34,34.36 
3*  10  C T I *7>T1>Tih»b>  36.30. 3b 

35  VHTliPrta.bav-Nail.-COSirRTNaiTIne-TOTUMn  ) 

VOTI'Ub«.5PV-P»(l.-C0S<rpTe*<TI*e-T0TU«l » 1 

vr»rup»».s*¥»«o*c j.-cosir»ropcTiMt-7070RO» » ) 

f-0  TO  37 

36  V*<TllPd»0. 

VOTllPnaO. 

VOTlmnaO. 

37  COMTIOUf 
PfTItfW* 

IM> 


SOHPOUTIPE  PANOdU.IX.K.N.UI 
DIMENSION  U(H> 

10 (Fill. 7. 11 

7 00  H 1 • 1 » 7 

MalllMJi 

« O(T)aII</2*J*7*V7671063S. 

POTitPN 

11  CO  13  lal.N 

Sa(|. 

DO  \?  jal.l? 
lila  (il*  I K 
1*  SaX. Id 

13  O(t)aS/«ftU7*y767106SS.-6. 

POTIIUN 

1*»0 


0-77 
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SimdOOTIME  CONTB? 

(.Ohmon/YFLOAT/A  (500)/IFIXED/lA(ifOO> 

coM»ftN/e»*r/*<20o>/lcftF/IBiS(D  ) 

F0nIv«lF>CEtAlL.R(2>  ) 

FO'llvAUNCF (OUO.R<3>  > 

FOUIVALlNCE.  (9TfcH1.8(S)  ) 

10'IIvALtNCF  (OSAA.H  (A)  I 
F-VJlV*LlNCF  (RLONSTK.NlTl) 

EO’MvaLFNCF l»LATSTK,AI9)  ) 
fOHJWALEKCk  (AUOnFO.A(ll)  I 
FOitIVALFNCF  (VSAS.HIl?)  > 

EONiVALF.NCF  (OSnA.HI 13) > 

COH I VALENCE (A (37) »PR)  * 1 

FooIvalFnCE  (Oh.  a (3b I ) 

EOt;l  VALENCE  (»««A(JV>  ) 

FO*Jl  V ALtNCE*  ( AY  • A ( 92)  ) 

FOH I VALENCE  (MOOE.IA(I)  ) 

FOillVALFKCE  (IHOAMR,  TM3A)  ) 

tO'lIVALkNCf  (|CiUAbB.|H(27)  ) 

EO'IIVALENCF  ( IGUANA* 19 (?91 ) 

FOiH  V»L^  CE  (DT.A  ( 16A)  ) 

Foil!  VALFF.Cf.  (9AU.A  (1*0)  I 1 

FOlll  VALENCE  ( TLEAQR.H  ( lbl  > ) 

FOlJlVALFNCFlPSASl.btlb?)  ) 
f OHTVALFNCF  (PSAAl  I.HIlOl ) 

com  valence  (PhvsmI  .hub*)  ) 
f OllIVALFNCE  (RNVEM.BI166)  ) 

Font  VAlF NCF  (VKOB*»H.R(197)  I 
FO'ltvALFNCE  (TLAGNA.AIlOb)  ) 

F ONI V AlFNLE I PKOBAY  * A ( 1G9)  ) 

F O'lt  VALFNCF  (TLEadAY.hi 170) ) 

F Ollt  VALENCE  ( TLAfiA Y «M  ( 1 7 1 ) ) 

Eon  I VALENCE ( A YF  JlTI «H ( 1 72) ) 

EOntVALENCF  (STAN, 9(1)  ) 

Font  VALENCE ( AYFILT.8) 17311 • (YSAS*.  It  (174) ) t (BINCNCTf 911751) • 

1 (tf«()PU*.H  ( 1 7A)  ) . (btlT7>  .YSAS1).  (VSASLlN.Bi  17*)).  (BBHOA. 9(179) ) , 

? ( TLf  AUt*  A » H ( 1 «i0  ) ) . ( TL  AfiOA  »B  (lbl  I 1 • (PHWSMtH  ( 192)  I • ( AVjHl  .H  ( 1 93)  ) • 

3 (bSaSLI“.h  ( lo*) ) » ( AJLC.M lbS) ) * (TAUACDA.il  I la*)  1 • (TAUAChS. 

*F  ( 1 A7)  1 . (NIIO^.HClbBt  | 

E Oil  I VALENCE  (lA(lA)  .IEUOF)  . (TIME.AO031 1 

OAT  A Nnn/VH.3b3/.TLE AOP/.  lbV/.TL»f,P/.  7*1/ tPSASLlN/1  .5/ 

Data  HKi.w|>A/.bH/.NNHOA/19.bieb/.TLEAl>DA/.7bl/ 

04  r*  TLAI.UA/I.it9/ 

Data  T ai.aCnR/ • 0h33/ • TLANNb/3. 1 1 / .PKDPH9/ JB. J3/.RKD9AY/.M3/ 

DATA  lLFA|iAY/./b/«TLAr.AY/.Ub/.YbASLlM/b./.4SASLlM//./ 
data  Tauacoa/. u*/. Ipoana/i/, imi>amp/i/( iodama/1/ 

If i ] woof ) 1*100.? 

00001  A4A«11b(i. 

AvShIpO. 

NMVSnIbO, 
a VF IL  T 1*6. 

FvShI«0. 

F v»NTHS«l  ,-FX*»  (-DT/TAUACHS) 
f vanT.lA«l.-ExP(-DT/TAUACDA) 

*H.«A1LC 
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STAHsSTAHC 
00002  CONTINUE 

STAMINA! (BUONSTKf 0..0..1  .1) 

PSAS1 laxSASlI » t»KO*0«-PS*Sl ) *OT 
PS4S1 ■ (m$AS1  1 ♦pkO«TLEAOP*OH> /TL*«P 
P*ASl»PSASl*IOUANP 
FpASaPpASl 

IP  (AOSlPSASl  ) .0T.PS*SUH)PS*S»SI6N(P*ASUM«PSASI> 

$TAPC»STAH1*PSAS 

STAHaST  Ah.EXPOTmS* (STAhC-STAB) 

IP UPUOK.feO.l ISTAbaTABl < TIME >0.«0.. 74.1) 

C YAP  4 AS  I 

PH<SHl»Pn**SNl*WPwSMaOT 
PA  .Sm»  (Pnr>PO«»«P-P8PSHl  > /TLAtiN* 

AyP!uTI»AVPXUTI« (R<0»AY*AY-AYFILT|»0T 
ArPILT»<AYr!uTI«PKD»AY*TLCAOAY»*Y)/TI.AOAY 
PvSHl>»»SHl « <MPHOA«PP-PPSH) *0 Y 
PpSHa (w.SPl »PPHOA*TLEAOnA»PH> /TLAOOA 

|» (amSIPpSH) .(>T.PSASLIM)P8wSh«s10n(BSASLIH,PBpSM» 

PSA<«”PhwSM« JPOAMP  > 

AttCaTAHl (PLATSTK.0..0..3.1) 

ATI.aAlL*E'  XPOTOA*  (AtLC»PSAS-AJU 
PtNCMCTa* ILC,wKOPOA 
VSAS?»»Pn*«SM«AYFtLT)*!PDA*P 
YSASlarSASi-PtNCNCI 
YSASaYSASl 

IP (AASIySASI)  .GT.YSASLIP)  YSAS-SIGN  ( YSASLI*.  YSAS1 ) 

C POLL  SAS 

ptjOaTAHl  < WUDPEO » 0 • * 0 . .2.1) 

PilOlaMlJfi 

Pitf>/aPll(U«YSAS 

00100  CONTINUE 

IP | I wOUE ) 101.101.102 

00101  STAPaSTAHC 
ATLBAlLC 

00102  Continue 
Pptmpn 
FnO 


SimPflUTIMF  AE»U? 

C<V«»on/CpF/M(2O0>/ICHP/IP<S0> 

COAPOM/»Fl(*AT/A(S00)/IPIXeO/IA(2001 
FoutvALf  NCP  (ALT. A (1*3)  > 

El  lIVALFNCt  (STAP.HU  ) I • (PUO.t*  (3)  ) .(AIL*0(2)  I •UHTN. PUT)) 

E OUT  V *LE  N( F (TlHf  , A ( 303)  ) «MM00e«lA(l>)  . (VJH.HU22))  * 

000001  (0*CG«A(  lYh)  ) • (07CO.  A ( 27 1 ) ) • (CMOHl),  A ( 1»2>  ) • I SPAN.  A ( 101 1 > , 

000002 (AAF A.A(1«0) ) . (OPAP. A ( 1 7H) ) • (WMALH.A ( 71 1 ) • (VO*. A (70) I 

F Oil!  VALC.E  Ct  (PHO.AUA3)  ) t (COO.H  ( 123)  ) . (CLAOOT  .H  ( 12A ) ) . (CLP  • « ( 1 25 ) I 
EoutVALFE'CF  (CPD.PtUM  > t (CYQR.H  (127)  ) • (CYM.*(  128)  I # (CLOA.B ( 124)  ) • 
000001 <CL0«4(130) ) . (CmAUT.HU 31 ) ) . (CMUH.H ( 1321 ) . (CNN. HI 133) ) . (CVOA. 
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000  002* < l 34 > > . (Cyp.k<135> ) « ( 0XCGO » A 1 25* I ) , (DZCGO, A (255) ) 

EQUIVALENCE (PH«N.A(A9) ) t (QBwN.A(50> ) , (RbWN,A(51) ) 

EQUIVALENCE  <PTuRH.A(52)  ) , (OTUPM  i A f S3 ) ) . (RTURb.A  (54)  ) 

EOlM  VALENCE (A (25) » ALFA  I . (A (2b) .BETA) , (A (2V) « ALFO) • ( A (31 ) .SALPM) * 
000001  ( A ( 3?) «C«LPW) » I A (37 1 ,PH) • (A  OR) ,bft) , (A(3V>  ,RB> » (A(15S> .TAL) • 
00000?  ( A ( 15b) .TAM) t (A ( 1571 ,TAE  ) 
f O'M  VALENCE (VtC.A ( TS ) ) 

EQUIVALENCE  (TENSOR)  ) , (TRN.H(SV)  ) 

f Oil  I VALENCE  (AAA.  A (136)  ) , (FAY«A(137)  ) , (FAZ,A<138)  ) 

f Out VALENCE (CL*A( 131 ) > . (CO.AI 132) ) , (CX.AI133) ) . (CY,A( 134) ) 

EOilI  VALENCE  (C.Z.A  1 1351  I • (CLL.A (152)  ) , (CLM<  A ( 153)  I , ICIN' A (154)  ) 
FO-MVALFNCE (HI  151 ) 'CMSTNl) « (CL5T*3,b { 1521 ) 

EQUIVALENCE ( ISTORl ' IN (37) ) . < 1STOR2. 18 (30) ) 

LATA  LMSTWl/.05/.COST«l/.0052/ 

LATA  Cl$T*3/0./ 

DATA  !ST0wl/l/»IST0R2/l/ 

CAT  A CLSTL2/0./.C**^TR2/0./.CD5TN2/.015V5/ 

DATA  CDO/O./.CL AOOT/0./«CCR/“.3l!»2F«CMO/-10,49/» 
OOO001CynP/.«Mnf,5/.CYR/.44bV/'.CL&A/.OOl7/,CL<J/4.B7/» 
040002CmA(jT/-10./.CHI>R/-.0011/«CNR/-.45/,CYOA/0./* 

0000 03C  va/ . 07/ .DXCGO/28.5/.DZCGO/8.015/ 

If (OMAN) 1.1,? 

1 vju.n.v 
VFPlalOOO. 
r-o  TO  3 

2 VJRaSONTI  (TFNeTRN>/(0RAR*13.)  ) 

3 CONTINUE 

!«■  (VJU.GT.O.)  VERl»VJR 
VFPaI./VFPI 

IF(TmTN.(  E.30..AND.VJR.GE.5.4)  VUR.5.4 

IF(VJ«.LT  .5.4)  VJRaS.4 

1F(VJM.GT.11.V)VJR«11.V 

f.E«0*AN«AMt  A 

EHVN*NH*E>TllRR 

hnWNaHH.wTUREl 

CM  YNAWtl.Nl  (IRR 

LSaRhai,»CALRH*RRVNaSALPH 

MS»MMYt(«CALPM-PRwN*SALPh 

!F(V*>A-1.  >4.4,5 

4 C02VSU. 

80?VsU, 

GO  TO  6 

5 CONTINUE 
CO?VaChonO/ (?.*VRM) 

EO?V«SRAN/(?.*VR«) 

4 continue; 

CLSTRlATAhl (VER.THTN.O. ,73,1) 

ClTAeikacLSTRS 

IF ( TmTn.lE.50.)  CLTANKaCLSTR3*THTn/50. 

CL 4 TORE a ( CL5TM1 »CLT  ANK ) *ISTOR 1 4CLSTR2* 1 ST0P2 

Ci>4T0»EaCuSTw1«IST0R1*CDSTR24IST0R2 

CNT  ANFaC.vSTRl 

IF(Te*Tw,lE  .45.)  C**TANR«CNSTR1aTMTN/45. 
CwSTOwt«C*’TAEi**I4TORl»CNSTP2*ISTUN2 
CLl»T*Hn*LF*,STAb.TNTN.37.6) 
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000001 

I I 


CI.?«T*h  1 (A(.FA. STAB. THTN. 43.3) 

CU3«CU»«  (CL2-CL1  l*(VJ»<-S.*)/6.b 
CC*CL3* (CL*OOT*AL^O*CUO#Ob«*M *C02V*CLST0Rr 
CntaTAnl I A^Fa.STAH.  TMTN.46.ft) 

CO?«TAnl  (ALFA.STAB.THTN.52.3) 

<tn3aC01»  (C02-Cl51)*(VJR-b.4 )/*.S 
C0aC03»  ( f Ooaflfiww)  •CO?V«COSTQPE 
C*a-CO»C*LRM»CL»SALPH 
C7»-C0*SAl.PH-CL#CAtRH 
C J 1 a T Ah  1 <ALFA.<TAB,THTN.b5.ft) 
f*2aTAftl  ( At  FA  * STAN  * TMTN.ft 1 *3) 

C<naC*l«  (C**2-CM1 ) • ( VJM-S.4) /ft.5  «CMST0RE 
CLPatH3*CO?ya«CMAOT»AcrO»CaO*Ob*»M) 

.«•  (DaCo-oxcro)  /cmowd«Cx*  (02CG-o7COO)  /chorO 

0SHal»F»SPAN 

OSO»'<F»CHOMI> 

F4>aOF«CX 

F4?a<iF»CZ 

CVlaTAHl (HeTA.*LEA,THTNtl9.3) 

CY?aTANl <HFTA.AL7A,TMTN.22.2) 

CY3aCV|« (CY?-CYl)»(VjM-S.*)/ft.S 

Cracrj»r YD»*t<un.CTDA»AlL*«CrP*RS*CVR*RS)»002W 

CLLlaTAMl ( MFTA , ALFA . ThTN.24. 3) 

CLL?«»AMl ( RF  T A < ALF  A • THTN. 2 7 #2) 

CLL3«CLl l • (CLL2-CLL1 >• (VJR-S.4)/6.5 
CLOwaTAHl  (V F<>.0.*0.«34.1) 

CUPatahl ( ALFA. O.<0. .36.1) 

' Cl.LS«CLL3»rL0PaptJ0«CLDAaAIL»  (CL««RSaCLP#PS)  »«02V 

C*lla7AHl  <nf  TA.ALEA,TNTN.<>9.3> 

CM2aTAHl  <HFTA,alFA,TMTN.32.2) 

C*l3aCNl«  (OR-CNl  >•  (VJI<-b.4>/ft.b 
«r*H  l (AtFA.o..O.*3b.l) 

CNMaTANl l»LFa#0.*0.*6Ptl) 

Cy^aCNj*CNOA*AtL»Coin*»aRyO*  (CNP*P$»CNNARS)  *802V 

CLlaCLt5»C»l.PH-CNSa*ALPH 

ClMaCLLS#SAl.PH*CNS*CAt.PM 

TAt»0S*-»CLL 

TA**aiJSC"*CL** 

TAM»uSn*CLN 

FAVatlF*CY 

aftumm 


SUBROUTINE  GEARS 
COmmon/CHF /R (200) / tCHF/10 (SO) 

LOATSA(bOO)  / 1 F IXE0/1 A (200 ) 
nt  4FNi»I()f.  OYPA(IS)  .OXPA(lb)  t07PA  (15) 

Ot"M«SI»R  MOTOKFI7)  'MOFCft(S)  iHldlMl  I TOUCH  (3) 
f JHlVAtM-CF  (FA/.  A ( 13N)  ) . (Ft.  7.4(141)  ) 

F'>lilV»iANCF(Hf)Tf*XE(t)  .A (447)  ) . (HI0(1  >,4(291)  ) . (N0ECK  ( 1 ) . A (272|  ) 
F'ldf VACEhCF  (MLA«l«H((l(M  ) . (H(<»1  J .RLAM2)  » (OT.A  <lft«>)  • ((MOOE.IA(l)  I 


• •Al 
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FQ'M  VALENCE (FEX.AI139) ) « (FAX. A (136) ). (WAIT.* ( 177)) 

FOUI  VALENCF  (PH.  A (37)  ) t ( ITOllCM  ( 1 ) . I A ( 1 0 > ) 

FOUI  VALENCE  (OYPA  ( 1 ) .A  (210)  ) • (DAP A ( 1 ) • A < 1 BA > ) » (OZPA  ( 1 ) . A (257)  ) 

F Q'Jl  V*LFNCF  (FGXM, A ( A55 I ) 

FQIIJVAllfcCF  (ALT.  A (83)  ) . (PH  IB  . A (A ) ) . (PS  I « . A (61  I • (TMETR.A(S)  ) 

Foil!  VALKMCF  (DNP.AIlObl  ) . ( DEM.  A < 107)  ) 

FII'I  VALfcA  CE  ( VHm . A ( 70  ) ) 

FOCI  VALF  '.CF  (</P.A  (*5A)  ) 

EO(IJVALHjCF(VX,A(200)  ) 

rou|  VALK.CF  (FT.  X. All*?)  ) t (F6Y.AI1A3)  ) » ( VNt  A (6*)  ) • ( VE  . A ( 65)  ) • 

2 (CMS1.A(1S)).( SPS I.A(1A))«(FGZ*AC 1 AA) ) * ( T6*. A ( 162 ) ) ♦ 

3 (TC-L  • A I I t>l  ) ) » (TON,  A (163)  ) . (PHlM.A(A)  > • (T*ETrt.A(5>  ) • (AIT. A (63)  ) . 
* (AlTO.A (BO) ) . (PSIP.AI6) ) 

F )IiIVALFNCF(IHUAK.IA(2V)  ) 

F'ii.ivalFO'CF  (I«»(rt>  .ICMASH) 

FOUI  VALEI.CF (SMhI.A(IO) ) • (CMHI.Alll) ) , (STHT. A ( 12) ) . (CTHT . A ( 13) ) 
EO"I VALENCE (I*fi.  I A ( 1 1 ) ) 

FOUI  VAUMCF  (UH,  A (36)  > 

F0II)VALFNCF.(ALT,A(B3>  ) « (ALTD.A(«0)  ) 

DATA  MHIIX/.a/ 

O .Illy*.  A 

IF < I*.«AK  .FO.U)MMUX*.03 

D7n«»h JO ( 1 ) -MDCCK (2) 
f)7«.r,«r.  10(2)  -HOFCF  ( 3 ) 

JF ( JMO0F >1.1.2 
00001  n7HGP*D7l»fi 
n?MAMB(i2*iG 
07*«r,l«il?A(> 

IF  in?*i(.l  .OT  .0.  ) DZMG1*0. 

OYKFArtaOYPA (3) -OYPA (*) 

»>*C.FAR«liFPA(l)-OXPA(2) 

onnoz  roFiTlNuf 

0|_A“1D«  ImOTDKE  (2) -HOTDFE  (3)  ) /0A8EAP 
M(.A*2U«  (NflTOKfc  (5)  -HOTDKE  (A)  ) /DYOt  Art 
Fr,7M0*TAHl  (DZPG.O.  , 0 . . fc*.  1 ) . I TOUCH  ( 1 )•  ( (OZNQ-OZNGP)  /DT*2500. 

1 ♦ ?*.  ti . •f>7F*o ) 

Ff.?MU*TA»l  (D?ma«0..(i..6S.1)  ♦ I TOUCH  (2)  * ( ( DZMO'OZMQP)  /OT*2S00  . . 

1 7*i0.n>2M(j) 

r>7»ir.rt>U7Nr. 
n7«Art«r./Mo 
FA7*FG?KG*FA2PG 
IF (FO/.RT.O. ) FGZ*0. 

IF (Vrt.Nf .0. ) FGX»(MMUX»FgZMO«.OJ*FGZN<3) *SIGN(1. . VMI 

IF ( Art SI VP) .LT. .01 ) FOX«(- (FAX.FtX)»COS (THETP-rtLAMl ) *SIN (rt(.AHl)» 

1 FA  J T » (FAZ»FFZ)*SIA*(ThETrt-rtLA«l)  )*ITOUCh(2) 

F fi <!>•*-(  rt*  D>  •FOZ»G.  . 03#F  G?NG ) 

IF  (APS  IFOX  ) .r,T.FGXM)FGxaSlGN(FAXF.  7GX) 

Tr,  »*-Ff.2M.*  (OXPA  ( I ) > -F(.7M<*»  (DXPa  (2)  ) *FGX*  (OZPA  (2)  »0ZMG1 ) 

JF  ( 1 TOUCH ( 3 ) «EQ» 1 « AM).  ITUOCH (A)  . FQ . 1 ) GO  TO  3 
00  TO  A 

00003  P.aALAM?!) 

um joshLam? 
r.r.t  TlhtJF 

fr(|-t<OF.fO.-l)  GO  TO  20 
IF (02MI..L  T.-l  * » AMD.07MG.LT .“1 » ) AO  TO  7 


0O00A 
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no  to  b 

00007  ALTOaNOTOKf  d) 

OH»OU*MJO 

ZlaOZNAd)  *OZNO 
tracin'*  (2)  *0ZMfi 
7 »a7l“72 

xiaoxt»Ad)-nxf>A(Z) 

THFTlaATAN2(Z3*Xl> 

TMirT*»THFTl**LAMl 
00  TO  <0 

00000  TFtP/NG.lT.-l.ANO.nn.LT.O.)  00«0. 

TF  |I)ZM(,.lT,-1  ..ANO.OH.OT.O.)  00*0, 

00020  COwTlMIIK 
TGNaO* 

TGLaO. 

CL**i*COA((»LAHl) 

FG7  1 «Fn7*CLAN  1 -FOXajLANl 
aoxl»i- b7*CLAM|»F0Z*SLAMl 
F'«7aF(j71  »CTHT  »F<V*  1 »STMT 
FOXaFOX |*CTHTaFA71*STHT 
!F(I**00F-.FO.-l»  ICOASHaO 

IF  tOZNb.Lt .-2..AN0.0ZM0.LT.-2..AN0.1M00E.E0.1)  ICAASMal 
1F(FGZ.OT.O»>  FOZaO. 

OFTll»N 

fmo 

SMHOObTlNE  FNOInE 
COmmoN/GA I N 1 /GA ( 1 00 ) 

COmwON/aFLOaT/A(S00)/IFIXE0/IA<200) 

CnMMl)M/OF/M  (200)  /ICHF/IH  (SO) 

0|mFNSI()N  nneCK(S) 

OJ“FN!»tON  MT6<M 

FQIlIVfcl)  NCF(Wiin.tt(3)  > ♦ <TMTN.0(17) ) 
roni  valf NCF  (MLOnST* .H 17) ) 
fO'ltVAUNCF  ( I CoiimTm • t H ( 47 ) ) • (ICOUnTN.IOCAOM 
FfldfVALlM'F  (lMOOf*IA(l)  > t (VJF.H ( 122) ) . 

1 (n7CN‘A(?71> ) • (CHOon.AIHiM  ) • (SKANtA(lbl) ) t 

2 I AQF A • A dbU ) I * (ONAH. A ( 1 7o) I . (pmaCh.A (711 ) t (VMM* A (70) I 

FOllJVALfNCf (STAA.eil ) I « (ST Aril. MIS) >• (MU02.Hdri0> ) 

FOtlJ  VAtF.Nf  F (alL.H  (?)  I 
FO«H  V»Lk«CF  M.A(mV)  .OMMMAX) 

FO'IIy*LFnCF  (S<»Te*»'W.A(37l)  > • (HNl «U (IV) ) • (OHO* A ( 1b3>  I • ( THTNC  «H ( 16) 

1) . (TFWJ.rt <**)). (A  <*b) • TWMJ) . (rt(OO) .TYAaJ) * (TriMJ,ri{*7> I « (TLDJ«R (*d 
2 ) ) . < IFajI .«(**) ) . (TWPJl tb(bO) ) • (THJl.H(Si) I « (T YAdJl .H (52) ) • 

3(TMPor .H ()•) ) . IfAaaAT.lNI 7) ) . (YSa$,h<12) ) • ( avOOT 1 *M ( 53) ) • (A (200) • 

A w-AT) • (fcFOEL • A (?AV> ) . IlFufeL. 14<b> ) « ( T AUEMO *4  lib) ) < (MOriAft.B IbT ( ) • 
t (R(«-«)  .TfN)  . <*(*•*)  .T»N) . (H (60) *VJOCS) . (TriTN.ridT) ) « < DOE *H < 61 1 ) . 

6 ( alt  l (-»?))  . lOXCGtAdVO)  ) . ( XFN  • A ( 1 VI  ) ) t 

7 (7FA>«A(*?A*|  ) « (XRN.AdV?)  > • l/RNt A (?(.*)  )*  I ZHOMAO*  A ( 263)  ) . 

b ( 1*0)  ) • (xFPj.AdV3)  ) • IxHMJ.AdV*)  ) t (XRMJtAdOb)  > • 

V (VlfcJ.t (?2?> ) • ( 7TA*J. A (2nd) ) . ( AYAW J* A (IVS) ) 
aoi.rVALLNCF  (HlG(l).AI  291  ) ) 

f O’ll  v*CF  ('Ct  ( AL  IGF  2 *RA  ( V* ) ) • (tigF  1 *H  (63)  ) * < UEF2 .» < 64 ) ) • (BIAS)  «AlTGE1I 
1 ) 

FOUjvALM-CF  (PMACh*  a (71 ) ) 
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FOtllVALFMCF  (FCP.HIbb)  ) . ( TOTPM. » ( 20 ) ) • (AFPJ.BI66)  ) • (AUPj,ft(t9) ) 
FOWIVAlinCF  <APPJ.b(70)  I t (At«J.«(67)  I 

rou  1VAH>CF  (ATmwj.C  (71))  . (CSPL*TF.B(72) ) . 

1 (r^Pl  AYP.h(73> ) . (CPJ.HI7*)  ) t (CFPJA.H(TS)  > t ( COP J A , B ( 76 ) ) t 
2<«rpj*.h(77) > « (SOPJA.BITB) I . ($PJ.H(79) ) * (VJO.Sd22) ) 
FOl'lVALTNCFlOT.AdAB)  ) 

FODtVALl  NCF  (Fr  X.AI13V) ) . (FEY .A (1*0)  ) t (FEZ  • A ( 1*1 ) ) « ITEM, A (ISO)  | . 

1 (TPL»A«  iS*>  > ) • (TFNtA(lbO)l  .(SALPH.  A ( 3 1 1 ) . (CALPlt  A < 3?) ) * 

2 (SPtTA.A (33) > . (C8FTA. A(3*> > 

POIMV*(  f NCF  ( IMOOE.  IAI1)  ) . (THTNlC'HdD)  > • (PFUELICtA (2*7)  I • 

1 (V«.AT1C.A(?*P>)  N 

F)>(»JVAJ_FMCF  (CO.  A (2S»>  ) 

FOuIVAlf  NCF  ( l)*CftO ♦ A ( 2*>*  ) ) 

FO>>IVfcLf  NCF  (ThPOT IC  ti  lib)  ) 

Fiji.il  VALFNCF  (ni)FCK  d I «A  (272) ) 

FOIiIVALFNCF(ALT.A(A3)) 

VAl  F A’CF  (1(201  .TOTPP) 

FTM  V *CF  NCF  | ft  A ( 90  ) t THCOP) 

F0')1VALFNCE(IH0V»IM(1)) 

Data  T..COP/.9V33/ 

DATA  IC(>llNT*«/l*0/f  ICOUNTN/200/ 

DATA  6FH/0./tltFFi*/ll./ 

OtfA  C$01  AYF/.V<*b/.CSPLAYH/. 977«/, CFPJA/.9V1/.CRPJA/. 9902/ 

OAT A CP J/ 1 . / t SFP JA/- . 133/ tSOPjA/ . 1396/ tSRJ/Ot/ 

DATA  1C(h)NTp/1*0/« 1COUNTN/400/ 

DATA  HPnpAX/IOS./ 

OATA  Cfr/10.7/ 

'DATA  UxCbO/?b.f>/ 

OATA  FCP/.O*/ 

OATA  InTMOAT/lbO./ 

OATA  Ph07/. 002377/ 

DATA  «LTf.El/lu./.ALTOE2/20./ 

TF(!**0||p.M>l«#U7» 

0O001  CONTINUE 

I'OOF  1*(GF.F2-Rt7‘l)/ALTGE1 
DOOF?*-«tF2/(ALTBE2-ALt6El> 

1C0I*NTE«I* 

ACOl'Nf  «U 
fiCOliwT  *0 

TUN*  f HTMC 

rr  nwTFMPU.(ro.0.)SOTEHP«»l.  • 

ThPoT  »ThpOT IC 

ThTnCMmTMC 

»«»T»<M»ATIC 

pfii»L»*FHFLIC 

9mI*ThP0T 

PNIPakNl 
00079  CONTI. YUi 

0«rO«DAC<-0»CHOkD*(CG-10.7)/100. 
afpjbTap 1 (PlONSTK . 0 . *0. t*t  I ) 

AOPJBlAPl (STAH.O.tO.tStl) 

AOP  J*T  A-.  1 (All.O.tO.tbtl) 

»1_PJ*T API  (-AlLtO.tO.tb.il 
A/*PJ«T*P1  I PI 'll  2.0.  tOt  .7. 1 ) 

RMZaKNl/V'TFrfPP 


A-0* 
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QOMparfrtG/RMflZ 

*TOTa»FPJ*ARPj»ARRj.ALPJ.AYA*J 
P90UCT»TAB1 (ATOT.O, ,0. .8.1) 

RR3aMN2/|00. 

MS*1*RT  3*1 . 

no  tou<i.?<>>  .ns*1 

00010  VJBCS«23.43*PN2 

no  to  3n 

00020  vjfrC*s»N*«(-U3.24*RN2*(3.34S5->01674«*RN2) ) 


OM0MA*«^3.»0KNt»C3 
00030  CONTI  WE 
C N0271.F  AN«|  F RESPONSE 


, 

TMTHEalMNC-THTN 

othtn*Thtnrat*ot 

00040 

IP  I Art* < TNTNf ) -OTHTM) 40.40.90 
TaTNaTrtTNC 

• 

00090 

no  TO  40 

TrtTRaTrtTN.OTHTRaSlnN ( 1 . . THTNE) 

OOOfcO 

C'lNTlMi* 

omoo 

TP(TrtTN-<.0.3)  90.100.100 
TMTNa’.b.* 

00090 

no  TO  120 

IP(TrtTh) 110.110.120 

00110 

TwTMaQ. 

00120 

CONTINUE 

<10121 

1P<ThTN.lT.20.)  60  TO  121 
en  TO  1?C 

OL A VRa7.S“THTN*.0?9 

60  TO  12S 

00122  SOLATKa^.VlFAS*  THTRa  <-.0 12496* .0000437MMTN) 

00123  CSPl AYHaCOS<SPlAYR/97.3) 

C REACT! On  CUATROL  EFFECTIVENESS 
TmTH«»Th TR/?0. 

TP ITHTN) 131.131 ,124 

00120  (P(TmTK»20.) 130.140.140 

00131  o».inCS«0  • 

00  TO  190 

VO  130  a*»:**CS»T  nTNR*  1 007h2.TrtTNRa (3«292*THTMRa  <«2«  1609~.0223*TMTnRI  1 1 

00  TO  130 

00140  0<.<BCS«1. 

00130  COPTl’MIf. 

C RCS  f h4 UST  CALCULATION 

c HN4  af.itCT  M-tnSURf  AT  NRCT/OUCT  PRESSURE  AT  100  PCT 
IP IPNJ-.9) 1S1.191.1S2 

00191  o>i*«.br3e4WH3 
00  TO  1*3 

00192  RM4a>. Jlb2»t.3|ft2*RN3 

00193  COHTlM'i 
P»r,PCSat««(.RCS»RRHOaRN4apROUCT 
u^IPPJaTABl (AFPJ.Q..0..9.1) 

3a  1 hh  jaT  A*.  1 ( *RP  J.O  •.0..10.1) 

TPH  J»  fPPjl  •F*CPCS**>KlF  PJ 
f3t»ja  TRh  Jl  *f  ACRCS*»*  1PPJ 
J<lrA.j«TARl (A VAHJ.O. . 0. . 1 1 . 1 | 


A-05 


N«oc~rrot*«3o 


T F <Pl'll*>  160. 160.170 
00160  TrAMja-TYA«jl*FACRCS*HKlYAMJ 
Art  TO  1 60 

00 170  TYAVJ»TYA*Jl*FAC»C$»PKlYA*J 
0C160  CONTINUE 

1F<aIu/oo.21o.220 
00?00  PftlPMJaTAPl ( ARP J.O . .0 . • 12. 1 > 
e*lLKJ«TA*l (ALPJ.C..O. .13.11 
TPPjaTwjl«FACRCS*RKl*«HJ 
TL*- J*”Tn  Jl  *FACPCS*PKlUPJ 
OO  TO  F30 

uo?l 0 t»pj«0. 

TL 

r,n  TO  230  . 

00220  0<1P«J»TAH1 I ARP J, 0 . . 0 . . 13. 1 ) 

0*1 1 t»J«TABl  ( ALOJ. 0. .0. . 12. 1 1 
TPWJ*-lPJt»FACPCS*«KlMRJ 
TI.H J»  TP  Jj  •FAC«C<*»KU.« J 

00230  CONTINUE 

OMPCS»i«;.?» (TFpj.TRPJ.APS(TYAPj) ♦ APS < TRR J) ♦ A8S < TLR J>> / 
1 (VJPC&.l.) 

6 IF IPmhCS.FQ.O.)  r.0  TO  232 

jf |P*k( A.bT.PHDMAX)  60  TO  231 

on  TO  232 

00231  CONTINUE 
PMObUMOP  » X /OHPCS 
TFPJaTFP japNR 
Tppj»T^hj*ppp 
TOPJbTh*. j*pmp 

TU‘'J*Tlwj*ppP 

Tyapj«Tyay J*PP« 

PmPC$«hmO»AX 
oi>232  ropTlNue 

C ENOl  nf  pPm  ctipmanD 

PNC* TmpuT 

if (PMC.OT. 104..AP0. “COUNT. CO. 1)RNC»10A. 

I F I PMC  • *T  . 1 0?  . • ANO  . NCOUNT  . tO  . 1 > RNC»  1 02  • 

C PATFO  I»'Jt  CT  IF'N  CONTROL 

TF(IS«»AT.FO.O.)  WwPOTaU. 

IF ( IS.fcAI.f 0.1..AN0.PM .6T.V2.I»400T>WW00T1 
|F|^aAT.LF.O.)WwOOTPO. 

IF  (P'»l  .11  .«?.  ) ypOOTaO. 
y «AI>»*/'T»rt.H>OT*0T 
fF  I * * A?  .I.F  . II.  ) wpATaO . 

C ThpUST  C'*Nk..f.  Ll**ITEH 

IF  ip.iC.6T  .OP**  .«»X  I HIiCpPPoNAA 
IF ipnC.i.T.  102. .anU.mouOT.EP.O. )HnC«102. 

IF (P..C.61 .102. .ANO. THTN.LT .10.)  mnc*102. 
yPuF  L**Fut  L-ECPOPNI  »OT 
I F I if  L * 0 

IF(.FUtl  >260.260.270 
00270  P'iCl»o, 

6m  TO  2P0 

00260  PmCI*HnC  l«M.«fIT 
TFtlFL*  1 


A-66 


NAOC-T702A-30 


002*0 

OHCaRNC-RNCl 

IF (RnC.LF.O. )HNC*0, 

1 

§ 

ic ( wFufl.LT. 0 . ) wFUCLa0 . 

1 

IF ( I POOF) 291.2vl.2V2 

i 

291 

292 

293 

DT  Alla.  OS 

AO  TO  293 

CONT I NUF 

TAIlFNUaTARl  (RNl  • 0.  .0.  « 1 A*  1 ) 

DTAUbUT/TAMCNA 

CONT I NOfc 

MofN6aF/P(-0TAH) 

e 

BNlaHNl.  <l.-e*PFN6)»(RNC-HNl) 
ir  (IH0V.FO.D40  TO  20) 

IF (PNi.LT.RNlR)  00  TO  2*1 
triONi.LT. TO.)  0PPH«12.S*DT 
IF (RNl .OT. TO. .AMD. ONI .CT. VO. ) 0*»PN«2A,»DT 
If (ON  1 .AT .00 . ) ORPHoOT* ( 1 1 1 ,-ONl) 

RNAaRMlP.OHRM 

IF (RNi.6T.HNS)  RNlaRNlP»ORPM 
002*1  CONTINUE 
RNIPbMNI 

C INAtNF  OOP  COUNTER 

IF(HNl.GT.l02..ANO.HNl.LT.10«)  IC()UMTC*IC0UNTC*1 
IF (0N1.GF .10*.)  IC0UNTEaIC0UNTC*2 
IF (ONl.Lfe . ) 00. ) ICOUNTEalCOUNTC-l 
IF  (ICOlIKTF  .LF.O)  ICOUNTEaO 
IF( ICOUNTF.LE.U)  HCOUNTaO 
I» ( ICOUNTF .Lf.O)  NCOUNTaO 
IF(  ICOUMF  .OF.ICOMNTH)  MCOUNTal 
1 F ( ICOl»NTF  .AT  . I COONTN ) NCODNTa  i 
C M07TLF  THRUST 

SOOHOMaSONT (RNNO) 

(•AThSSTb ,S»TAnl (4Nl .ROACH. 0. » 19*1 1 «RRH0«»3 
T 1 FN»  T in  1 (RNl . RHHCS . 0 • • 16* 1 ) 

ROHAbaPoHdaTAH) («Nl .RmaCH.O. , 1*. D 
T FNaSNW  miiH«TnCOR*T  1FN.0ATH4ST 
T 1 ON«T  AH  1 ( RNl .RMRCS. 0. .17.1) 

TRNaSHHH)R*THCi)RaTlHO*0bTHMST 
C CPAfNF  A NO  aC4  FORCE  A NO  NONFNT  CALCULATION 
SmThTnbS |N (THTN/ST.3*. 020178) 

CSThT  Nat OS ( THTN/S7 .3* , 0261 7S ) 

C ORCminO  EFFECT  F ACTON 

4I.T1»hIa(2)-W)FCK(3) 

IF  (ALT1.LT. 0.1 ALTlaO. 

1F(A(  T l-ALTAF 1 ) 2R0.2V9.29R 
2«0  (.AFaAEF  1*0(IAF  l«AL71 
(•O  TO  320 

295  IF  ( Al.  T1  -*CT0F2) 300  >310.310 
300  0«Far.tF?.oriAF  <•  ( ALT  1- ALT6E 1 1 
AO  TO  J20 
310  liAFaO. 

320  ( O'iT  INue 

F<r7aSNTMTNa(-TFN*CSPLAYF-TRNaCSRLAYR)-CrPJA»TFRj-CHRjA»TRRj 
1 -f  H J*  ( T HW  J«  T LP J ) -NOR A6»S ALRH«Ct»C T A 
FF/aFt/a(I.*(>4ff) 


A-*T 


i 


i 

l 
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rc*»CSTHT*»*«CS»L‘Tr*TrN*CSPl.*YM*Tt«l)*sn»J4»TMj**l»»JA*TMJ 
1 -WDMAN4CALBM«CBCT A<SB J*  f T*P J<TLRJI 
ffy»  t y4* j-pnPA«*SBETA 

TFm.CSPL A VF»TFn* (SWTMTN*  (OXCO-XFN)  «CSTMTN*  IOZCO-ZFN) ) 

1 <CSPLAVN»TPN* ISNTMTN*  <tlXCG-XRN>»CSTHTN*inZCB-ZRN)  I 

2 -IH>WA<<4<CALPH*  (PZCG-ZPDPAGI -SALHN*  <OXCO«XBOBAG1  I #CBCTA 

3 »CFP  JAMFPJ*  IPXCO-XFPJ)  ♦CnPJA«TMPj4  IOACb-XRP J) 

4 . (TNHJ<TI.»J>  • <OXCl»-XNI)J) 

TFl« (?lmJ-TBNJ14VRBJ-TVAMJ4<OZCG-ZVAMJ>  *FEV» < ZMOBAB-OICB1 
TFHmT  Y4» J4  (nxCG-XYAMJl-WuPAG^SOETA^CALPM* lOXCG-XRDRAGl 
TOTP<<MPH<TFN 
BFTliHN 

t'Np  . 


subpoutinf  ship 

Cr,MMON/CrF/R  (ZOO  1/ICBF/IB  1501 
Common/ XFL04T/4 <5001 /IFJXEO/l A <2001 

COMMON/f.«l/rrTt.F  (*>  .HF*0.SPCF0»NSPEC»SI«PHI3)  <TMOOAL  <31  < 

1 o i .<•(>•  N<<OM<NCHN<NPEC<KPTS<OELT  <SM<TRUN<NPTS<CTITL<10I 

0I«FmSI(.n  Ct  J ( 1 3«#i <XIU<13<4I <THZST <1V<3<3<11  <XLAST<13<31 
l'1«M"Sl<>N  PI0(4P) 
fOUIVALDCF  (TUlF  tOJP) 

F onj vALk>  Ct IT  IMF • A (303) 1 . <PT1ME < A 004 ) I 
f O'lt  VALf  NO1  (OT  • A ( 1 69  1 1 

f OUIVALFMCF  <PMIS<H<N2H « <THETS. 0 (03) )• <PSIS<B<B4I ) • <THETSO<B<BSD 
f 0'iIv»Lf  t.Ct  <PH1S0<B<B4I  1 < <PSISO<B<BTI  ) < <MFAVE<H<BBI  I < <H£ AVED< 

1 P<h«.)  ) . (MiPGF < ■» <40 ) ) < <SUBGFD<M<V1D  < <SBAV<M<921  ) < <SMAV0<B<B3D 
TOMlVALbNLF  <H<1AG<B<104I  1 < <PHIHV<H<10BI  ) < <OMEAH<H<10TD< 

1 <4(1051  • PH  I POL  1 < <0MFGN<H<10BD<  <NOLLH<B<1091 ) < I PI  TCHM.H  < 1 1 OD 
EQUIVALENCE  <OMfcftP,ft(llll  1 < <PHIP<H<1121  } < <VAMH<H<113I  I 
f OKI  VALf  NCt  <0<<EGV<B<1141  I < <PHIV<B<115D  < <SUBAH<N<11B1 1 < <OMEGS*G< 
1H < 1 1 T1  1 < <HMISN<<<H<DBI  I < <SMAVH<B<1191  | < <0HFGSMV<M<12GD  < 
2<PM1S<Y<H<121II 

EQUIVALENCE  <CUUBSE<A<1101  I < (I«Ol>t,IA<ll  1 < <H  < 1 921  < MAVHT1 
F.QUIvAlI  E.CE  <IT4PF<1A<241  1 < 1 1ST  AMT  <IA  <2511  <<IFILE<IA<2BD< 

1 <IA<Z71<KD  , DFILMX<1A<2BD<  I US  <AM<IA<Z91  I 

DATA  S«*y**/T. JB/<OHF«SMV/ .TB9/, PH ISWV/3. 14159/ 

DATA  hmaG/N. T/<0m£0h/.7BB/<pm1h//4.7123B/ 

Data  ohk.p/.bjb/ 

Data  Bullp/H.5*9/<OhF<<H/.TOB/<PHI»OL/0./<PITCHh/3.G59/ 

Data  phIh/i.s707«/<YAnm/.bb9h/<OmF<;v/.T53/<PHIV/I.ST0T9/ 

DATA  StJHHH/ 1 ,35/ , OHEGSBP/  <G/<Ph J 5BG/1  • 5 TO 79/ 
r.ATA  NCU/ST.4/ 

Data  lfiiE/1/ 

Data  ITape/}/ 

DATA  If Ilnx/b/<1SET/0/<ISTANT/1/<JSTABT/1/<k1/1/ 

IF  <l<tbU£p»|M«iUt  14  00*401  <400 

400  I SFTmO 

401  IF ( ITAPf I 500 <900 < SOI 
900  CONTINUE 

PSISO»VAwH*OhEgy4C0S<0HEGV*TIHE^HIV1 


A-BO 


'Xl*  .0' 
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00260 

»MCaR*C-RNCl 

IF(ONC.Lr.0.)HNC*0. 

• 

TF(wFuel.LT.O.| a FUEL *0 
IF ( (mOOE) 291 »2VI .292 

201 

DTAIia.Ub 

PO  TO  2V3 

202 

lontinof 

TAIjF Nt*«TAH  1 (RNl  1 0 . .0 . • 
OTAIIBUT/TAUCnO 

203 

COHTlNUfc 

FtoFHGaFxPt-OTAll) 

RNlaRNl« U.-EXPFNG)*(PNC-HNl> 
ir (IH0V.FO.1I90  TO  2*1 
IF  (PNi,t.T.PNlP|  60  TO  201 
ir  (BHl.LT.70.)  nPP**«l2.S*0T 
1F(Pn1.GT.70» .AHO.BnI.lt • VO. I 0PPH»2*,*0T 
IF (PMl.OT.OO.)  ORPMbOT* (11 1 ,*BNl ) 
pNlaBNlP.IHtPM 

iriBHl.GT.HM9l  BN1«»H1P*0BPH 
00261  CONTINUE 
PMIPaMNl 

C EMltNF  PNN  COUNTER 

IF (UHl.GT. 10?.. BN0.BN1.lt .10* I I COUNTS* I COUNTS • 1 

I*  (HNl.GF  .104.)  IC0UNTC«IC0(jNTC*2 

IF (HHl.Lk .100.)  1C0UNTE«1C0UNTE-1 

IPMCOdHTF  .LF.O)  ICOUHTEaO 

IFtICOtJNTF.LF.O)  HC0UNT»0 

IF(lCOUHTF.Lr.O)  NCOONTaO 

IF ( (COUNT f .OF. ICOUNTM)  HCOUNTal 

1F(  JCOliHTF.BT.ICOOHTH)NCOONTal 

C N07?LP  THHdST 

50HH0MBSNHT (»hho) 

OOThONTb .ma  TAN  1 (RNl .RMACh . 0 . . 1) t 1 > arrhO*«3 
T 1 FN«  Tar  1 ( Bn! t PmRCS .0. .16*11 
OOHiGat.i.'.oaTAHl  (RNl.BMaCHtO.tl6.il 
lFHa4HHMOH*THC0B*TlFH*0fiTHHST 
TlHHaTanl (BNl.»MBC9tV.tl7.1) 

TB-.aSUWNOB*THC'>NaTlBN*0fcTHMST 
C ENPIN*  ANO  t.ro  FORCE  AM)  NrtMf nT  C“i .CULATtOM 
VhTmTnbS IN (ThTN/67.3*. 026176) 

COTnTNblOF ( THTn/07 .3* . 026176) 

C OBOUMp  EFtFCT  F4CT0H 

ALT1»HI«<2|-hI)FCKC3> 

1»(*LT1.lT.0.!*LTI«O. 

IF  ( At  Tl-ALTOFnjrOU.iVb.29b 
?O0  trtFa«£Fl«0|H»Fl*ALTl 
(-0  TO  320 

PBS  IF  (Ai.Tl-bl.TftF  2)300.310.310 
300  0AFar.tF2.00RF2»  (ALT1-ALT0E1 1 
t- O TO  J20 
110  l*OFsO. 

320  CO'iTJNUe 

FF7aSNTMTNA(-TFN»CSPLATr-TRNaCSPLAYR)-Crf»JAaTrPJ-CRPJMTRPJ 

1 -Ck  J*  ( THH  J«  1 LB  J ) “HI)R AG»SALPH*CHE T A 
FF/aFc./*(l..(x,f) 


A-07 
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FCx»CSTmTN»(CSPL*YF»TFN.CSPLAYI<«TRN),SFPJA*TFPJ*SRPJApt«PJ 
1 -ur>HA(;*CAL®H«CHETA.SRJ*  (T«H J.TLRJ) 

FFV« tYfck J-Pf>»AR»SBE TA 

TFM«CSPLAYF«TFN*(SNTMTN»(r)XCG-XFN)  »CSTHTN«  (OZCG-ZFN)  ) 

1 .CSPLAYP*7PN* (SNTMT** (OXCG-XRN) *CSTHTN« (DZCG-ZHN) ) 

2 _or,»,A(.«MrALPH*  {PZCO-ZPUKAGI-SALHMMDXCG-XBOPAG)  )*CBCTA 

3 ♦CFPJA«TFPJ« (OXCG-XFPJ) ♦ChPJA»TMPj#1DAC«-X«P,)> 

4 .(TWHJ.TLHJ)»(DXCG-XW«J) 

TF(.«  tTL«J-TPMJ>«YBPJ-TVA*J«(DZCG-ZYAVJ)  »FEy* ( ZHDP At-OZCO) 
TFN.T VA» J« (CXCG-XYAk J) -WuHA6*SBETA*CALPH* (OXCG-XRORAAI 
TOTP*«sYBfi»TFN 
BF.Tt'MN 

End 


SHRBOUT INF  SHIP 

CO«»0H/CrF/A(*Q0)/ICRF/IB(50) 

COmmon/xFlAAT/A (500 ) /IF IXEO/I A (200) 

COmmon/hk 1/TITLF  (0) .MEAD.SPEED.NSPrc.SIOMMO) , TMOOAL (31  « 

1 ®I «X2H t .M>,N«  «0*"RChn.NPEC«KPTS.|)ELT .SK.TRUN.NPTS.CTITl  <191 
DIMENSION  Cl J (1 3,*)  .XIJ(13«4)  .THl ST (IV, 3. 30  I .XL AST (l 3.3) 

(>|Mf»i$twN  PI0I4A) 

F O'llvAL)  kCF  (TITlF.Oini 

FoiiIvALtFCI  (T  IMF.  A (3031  I . (RTIME**  (3041 1 

FO'llVALFNCE (OT ,4 ( 169) I 

f O'lIvALFNCF (PHIA.H(h2) ) , ( THETS « o ( 03) ) • ( PS  IS. B (84) ) , (THETSD.FMOS) ) 
F O'  1 1 V »L  E I . f l (PhJS0*O(BPI ) . (PSIS'>*0(B71 > • (HFA VE.W (OB ) I * (HEAVED, 
IMOWI  I • (M'B,-F,-»|P0(  ) . (SltRGFb.M(vl)  ) , (S*AV.«(92>  ) • (S-AYO.B (93)  | 
EO'IIV  ALIKE  (hmAR.HOOA)  ) , (PHlHV  • H ( I Ub  ) ) , (O-EGM.H  ( 10T)  ) • 

1 (4(1  OS)  .PHI POL)  . (ONFGm.MIOB)  I . (HOLLH.B  < 109)  ) . (PITCHM.fMllO)) 

EO'll  V*LFNCf  (OHtfiP.Rdll)  ) * IPHIP.HI  112) ) , (VA*M«B(U3)  I 
»OMI  VALFNCt  (()•*£  GV.H(1 14)  )«(Ph1Y,N  (lib)  ) • (StiBGM,  H (1 1 b)  ) , (..MEGSPB, 
lb  (I  IT)  I . (FHISN'i.Hdlb)  ) . (SMAVM.MldV)  >•  (0*FbSfcY,H  020)  ) , 

?(PMtS«V,H(l?l) ) 

EO’H  VALENCE  (COOBSE.A (1101  > . < I MOOt , I A (1 > ) , | H (1  92)  » WAVMT ) 
f.  N<(  l VALF  E.CE  (IT  4PF  «IA(24)),(  ISfAM  T « I A (?$)  ),(IFILE,IA  (?fe)  ) , 

1 (I  A (27) .FI) . (IF IlMX.l A (2d) ) . ( Jb ( AM ♦ I A (29) ) 

(.AT  A S«AY»*/3.3<1/.0MF«SMV/.76V/,PHISVY/3.14159/ 

L4T A NNAb/h. 1/ »Om£Gm/. 7bb/ .pmIhV/4.7123B/ 

OATA  OMM.P/.BJ6/ 

(■AT A BULLF/b.a«9/,OMF(,H/.706/.PHlAOL/0./,PITCHM/3.0G9/ 
f'ATA  PhIh/1 .57070/, YA«M/.bb9H/,OHFGV/.7b3/.PHlY/l. 67079/ 

CAT  A SI)H«.k/l  .3o/t0ME«S«G/.8/.PHlbBr,/l.S7079/ 

CAT A M2U/S7.J/ 

OATA  IFHF/l/ 

DATA  ITahE/1/ 

OATA  IF tLM/A/.lSET/O/.ISTAHT/l/.JSTABT/l/.Kl/l/ 

IF  (l"bOEP-lMriob)A00. 4Ul,400 

400  IAFTpO 

401  IF  (IT APE  ) SVO  « SUO « bO 1 

*,oo  font  j oof 

PA)  SF'PY  AwH*OM£b  Y*COS  ( OM£GY*TlHC*PHI V) 


*•00 


NAOC-f 7084-30 


AMtso«*oiL“»o**eflo*cos«Ti>»e*oMeGM*PM!Rou 

ThF T4*P I TCHO*S I N (0*£9P*T IM£ »PH I P ) 

TM(r T5U«P I TCNn*OmEGP*CO«.  CTINf »PhIP| 

P9T9*YA'.P*StN<0MFGY*TlMt.PMlY) 

P4T4*p*i5*cnoPSF 

PuT9«pOLLP*MN  COm£GO*TTPF.PhIPOL> 

SnOfif  •St'P»*P*5lN«0MCr.S»G4TIPE«PHlSP8| 

Siicfif  u»SliuG***0>»pflSP6*C0S  (ON£GSPC**T  l*»E*PMI5P(J) 
S*AY»S-AY<«*SINC0n£C1SYV*TIME»PhIS«CV) 

S*AYt)*S»AYN*0*tr.S*Y*C0S  C0NE(»S*Y#T  Im£.PmISWV1 
l-r  4V£s».p«(i*AU  l n**EGP*T  I Pf  «PHl HV ) 

Hf AVF0*PP*G*O*fc  GH*COSCOPEGH*Tt«Ct«PHlHV> 

P4  TO  1000 

401  ir(!»0»t>b0?«!>02.S03 

AO  2 lF(IStT)5Cl4, 904.1000 
404  lAFTal 
T1*0. 

T8»0. 

IFCIFlU:  .C.T.IFILMX>IF1LE*IFILMX 
00  hOO  J*1  * IFlLf 

1 J<FlLt«J0FlLC*l 

PFctulU)  l>10 

IF (POF (10) ) 1.8 

2 C0»,TIN.)T 
IFM-IKJIE)  4cO.9lO.S20 

910  MMTFCo.j)  JKFtLE 

3 fOPP4TUOX.4JXFH.E4.I101 

YOfTF  (ft.  1(iOS)TITLE 

1005  FoppaTC*1*.1*X.0A10///) 

YPfTF  Co. 1004J  pFx0.APFEI).SR.TPUN.5IAWH.TMO04C.K1 
140*  fOPP4TC30x.4HE4()INB  **.F*.0.*  OtG*. 16X .*SPFEO  *.F*.2.4  KNOTS*  / 
130*.*  SapplF  Pi»TF*.F*.8.*  SAM/SEC*. 10X.4  PON  TINE  • ••FO.2.4  SEC* 
1///.1XA.JCNX.4  SIONIF.  wF*  4.F6.2.4  FEET* .2X • I / • 1»X .3 Cax.*M00Al 

2 arp.  *.F9.1.*  $FC  *.2X1//.**.*  Kt  ■ *.I5» 

varTF Co. 10HT>PI,x8PI.PO.».P.O*.NC«N.4hEC.XPTS.OCLT.SP.T«ON.NPTS 
1007  FOpmaMKiX.*  pi*  *.F10.b.*  X2PI**«Fl0.5»*  Nil*  *«F10.5./. 

1 1 OX ♦ • t-f  * *.U0.*  OW*  *.F  10 .5»*  NChN*  *.110.*  NPEC*  *.110./. 

8 1 Ox .*  APTS*  *.110.*  (IT*  *.F10.b.*  $Hm  •triO. 5.*  TUDMa  *.F10.9. 

3 • NMTS*  *.110/) 

IPCJ9TAPT.LT. ll  JST  APT* 1 
X’«»X*<PT«-3 

If  cjaiapt .gt.xnxx i j9Tapt*xnax 

(.4  TO  ->30 

420  GO  ion  ’iPsI.nPEC 
pr*r. ( 10)  ThisT 
100  CO*tT  TN'Jt 
r-0  TO  *0b 

430  l<0  800  Fp*l . ISTAPT 

ffmmioi  thist 

200  CO-lT  |NllF 
900  CO*lT|CN)f 

Pl»l./C2.*0FlT) 

CI*-.b/COTLT*U«LT) 

M*.4/CPfLT*OKCT*0€tT) 


NADC"770?*00 


DO  ?M  K*  1 . 3 
OO  ?0l  1*1.13 

H.a<T(LtK)aTHlST|L*Kl«K«3*KPTSt 
*0 1 COST  j *ux. 

JaJ<TSMT*l 

•»VHTalHlST(l.Kl,J» 

Snor.faTHtM  (2.*1,J) 

S*»Y*ThIST  (3,<1,J> 

HF4VF  alt.IST  (*.«l  , J) 

*Ml$aTHTST IS.Kl.J) 

TwrrsaTxlST |4)<liJI 
FCI<;rTi!<;T  (7.K1  ,J)  ♦COUHSt 
SlHftF 0«T* 1ST (A.K1 . J> 
SwAVfl*T6]ST(6.Kl.JI 
*F»  VFO*T..  I*T(10.Kl»J) 
6slSI>*T61ST  < l l.Kl <J> 
THFT«uaTHlSTI  l*<Kl  . J) 

PSTSD*  Th|ST  (lJ.Kl.J) 

60  TO  1000 
»03  COSTINUt 

lr(TlMt-Tll  6U1.S00.000 
*00  TlBTl*l>tkT 

I*  <J-l<f'T***)6U*.S0*.t06 
SO 3 COSTINUl 

1*1 J.tU.  <K*T$«*M  J«* 

SOS  DO  *09  X * 1 .4 
00  SOS  1*1.13 
Xt.ltt  .«>*TMHT<L.Kl.J-*«K> 

60S  COST  I TOC 

l*«j.tD.c**»TS-*>  JRCsoclO)  tmist 

JaJ.  I 
60  TO  o30 

SOS  iriJ-M'TSMl  U0S.S0S.S10 
MAS  DO  hOV  L« 1 • 1 3 

XTJ<L«1>  »>L*ST«L«ll 
XIJ(L.^)a«|.SSTa«2) 

XI  Jll  • J I a*U*ST  It. 3) 
XIja»*laTHlST(L.Kl.n 
SOS  COST  T*»Df 
JaJ.l 
60  TO  S3b 

sio  Irej-S6TS»«11.«11.815  • 

sil  DO  *12  Is 1 .13 

X|J<L'l>aXLAST<l.2> 
*I.m.»*)**L*ST CL. 3) 
XlJ«l*31aTHIST<t.Kl,n 
SI*  *TJCl«*)*TMt«tT(L.K1.2) 

JaJ.l 
6o  TO  d3u 

• 15  I*(J-*t>TS-l)M6.  S16.H03 

«1S  DO  L«l. 13 

XI J(L «1 >*XL ASTCL.3) 
XTjlLtd)aTHlSr<L.Kl.l) 
XtJCL*J)aTH!?T  <L .Xl .?) 
XIJIL.*)aTMIST<L.Kl.3) 


S-SO 


W-'viT!  *i,\7 

• <*:  S •• 
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•17  CONTINUE 
JbJ«1 

•30  CONTINUE 

ircj.EO.3l  SO  TO  820 
C*0  TO  6*3 
•20  00  M?2  Eal.3 

PO  M22  L*1 • 13 

XL»*T  CL.  A )»THlSTCLtKl .K-3*KRTS) 

822  CONTINUt 

823  CONTINUE 

00  oaO  L a 1 . 1 3 
CI.l  (L  * 1 ) *7 1 J (L  • 21 
CTJ(L*2)«Hla<XIj(L«3)“XIJ(L.l) ) 

C|j(l.J>»C1*(XIj<L.4I-4.*xIJ(L.3>»5.*XIJ(L»2>-2.*XIJ(L»1> I 
Cf j(L*4)a01*CXI j(L.a|-3.*XIJ(L.3>  »3.*XIJ(L.2>~XIJ(L.1> I 
•40  CONTINUE 
•01  CONTINUE 

IT ( ( T t«E>T2| .6E.0Cl.TI T2*T2»0ELT 
DTtaTl  'E-T2 
OTt?aUTI*OTI 
DT I 3aUT  I 2*I)TI 

k»vwT*CIjt)»))*CIJ(l*2)*0TI»CIJ<i«3) *07 I2*ClJ(l<4) *0T 1 3 
Suae*  aCl JI2.1>*C1J<2.2)*D71*CIJI2.3)*D712*C!J(2.4)*D7I3 
?(AYaClJ(3.1)*CIJ(3<2) #OTI »CI J ( 3. 3l #0TI2«CI J ( 3*4) #OTI 3 
NE4VEaCljC4.il *CIJ(4.2t40TI«C I J <4, J)«0T12*C!J (4*4) «0TI3 
MwlSBCIJ(5.1)*ClJ(S.2l*C7t»ClJO.3)*07I2*CtJ(S.4)*0TI1 
7wETSaClJ(*»«l)*CTJ(6.2)*DTI*ClJ<6«3|aD7t2*CtJ(6»4|a07I3 
•E>srSeClJ(7.  1)  *CTJ(7.?>*071*CI  JC  E.  J)*07I2«CIJ(7.4)a»TI3*C0UftS£ 
Euoof OaCIJCM.il «C I J CM »2iaOT I »CIJIM»3I •OTI<»CIJC(t. 4| 40TI3 
Sw4V0aClJ<V.ll *CIJC9»21*PTI*CIJ(V.3I*1>T12»CIJCV.4|4UTIJ 
M'-'4  vlU«C  IJ(10.1).CtJ(lb.2)*OTI*LtJ(10<3)  *0T  I2*CtJ(10.4)  *0TI3 
PwlfpaCI  J(  1 1.1)  .ClJtl  1 .2>*DT1  »ClJ(  1 1 .3)  •0TU*CUC1 1 »4|#r>TI3 
TwETSO-C IJC12.1 I »CIJC 12.2) aOTI»CIJC 12.31*01 12*CIJC 12.41 #0TI3 
MHoaCIJC  1.1,1) «CI J ( 13. 21 *OTI*CtJC 13.31 *0TI2*CIJC 13.41 *0T 13 
lrcT|Nt.c.E.»TlMf)MewiNO  10 
1O00  CONTINUC 

iMOnENBlNC'lil? 

I.E7IIMN 

Ino 


S<ih*ou7ine  nrCK 

COuaON/ Hr  lOXT/X  C 800 ) /IE I XCD/I • ( 200 ) 

CowmON/ChE/E c 200 1 / 1 CHE/ IS  C 80) 

OINCnSIiiN  ITOUCm(S) 

DIMENSION  VOKNC7)  .VOICE  (7) 

I»l««C».$lON  NOTI)«EC7| 

riWENSIf.N  XD70K0  C 7)  « VDTDKU  ( 7)  .HUtOEO  1 7)  .0»»A( 15)  .OVPACIS) 
Ot-E'-SIOf.  02EAC1M  . hOECe  C 7 1 .HtSCb)  .XI0I8)  .710  (8)  .X  100(6)  .7100(61 
tOHTvauf  NCFCNt  .M(l40l  I . (Xt.Mt  141)  ) . (VE.«(U2) ) 

EOIII  VALENCE  (fiXCrt. 4(174)  ) . (07C8.  A ( l 78) ) . ( HCO  . A C 1 76)  I . ( 4 C 16)  .Til). 
1CT21.AC17) I . ITJ1.AC18) ) .IT12.AC1VI ) , (722. A (20) ) . (732. A (21)1 . 


A-Vl 
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?(ri3.A(2?)>* (723, A (23) ) . (T33*A (**> ) . (DXPA(l) ,A(1»4) ) * 

3(OrP».A(/'10)  ) . (D7PAI1) ,A<2S7> ) * (H0ECM1 ) ,4(272)  ) • ( X 1 0 ( 1 ) • 

4A<?79)  » 

EO'lIVALENCMYlbll)  • A ( 265)  ) . O IG  < 1 ) , A (291 ) > . (VX,A(200)  ) * (VY«A(20l> ) 
EOilT valence <xCGp,A(203> I . (YC6P.AI20A) > 

EOKIVALFMCF (ICRAA*. ip (V) ) . (PLAmI ,S(60) ) • ( RL AM2.B ( 81 ) ) 
lOHIVALEfcCF (PH  I S.H (62) ) , ( TMf  TSi H ( B J ) 1 , (PSIS.fl(HA) ) • (ThETSD.B (95) ) 

E O'M  VALENCE (PHI90.H (8b) ) . (PSISD.B (871 ) , (HE AVE .0 (««>  > * (HEAVED. 

1 P ( P.  4 ) I » (SliPG*  • * (90))  . (SUHbEO.H(Vl)  | . (StrAr  .M  (92)  ) • (SrfAYO.H  (»3) ) 
f O'lIvALfK'Cf  (*1S.P(94)  | , (X2S.rt(99>  ) , ( V1S.H (96) > . (V2S«H(97>  ) 

FOtil  VALENCE  (»  JS.MI96)  ) , (h3S  tb  (94)  ) , (HlS.H  ( 100 1 I • ( XTO.B  ( 101 1 ) 

tOi'TVAlf  NCF  (yTO«P  ( 1 0?)  ) 

rOtllVAUFCE  (*701,0(169)  >,  (Y7D1.BI  190)) 

F Oil)  VALFNCF.  ( Al.T  , A (03)  ) 

FOOT V ALFNCE  1 1*>VDK  , I A ( IS ) ) 

FO'ilvALFNCF.  ITLANO.IPtS)  ) . (ITOUCH.IA(IO) ) 

E O'lJ  vaLFOCE  (m1Ps.H(103> ) 
f (MIV-LFNCf  (ONw.a  (106) ) . (DEH«A(1V7)  ) 

F (>•(  1 V ALF  NCF.  (VOCNll)  .A  <*33) > . (HOTOkE  (1)  »A(AA7)  ) 

EOMIvAlFMCF (mTD«P (31 ) > 

TATA  XlS/-200./’,*2S/0./,YlS/-SO./.Y?S/50./,X3S/400./.H3S/100./ 
OAT*  H|*/30./.XTP/-100./.YTD/0./.HCGI©/4.6/.h1PS/30./ 

C'AT  A lLAF.n/1/ 

c COwPllT*  NFAP  LOCATIONS  IN  INERTIAL  AXES 

00  10  J» 1 . » 

X I«  < j)  »OnP*|>*ha  ( J ) •Til  *OYPA  ( J)  «T2l  .0?PA  I J)  *731 
YTft (J)»0t*<»DXOA(J)*T12*0YPA(J)#T22*DZPA(J)PT32 
H)r,  ( j) -At T-OXHA (J) PT13-OVPA ( J) *T23-07PA ( J) «T33 
10  CONTINUE 
I OvOP • V 

1*01  ANO)  100.100.1 

C ltAM»»0  .’FANS  land  ON  NORTH  MUNPAy.ILANO-1  MEANS  LAND  ON  SHIP 

1 CONTINUE 

Call  ship 

c compute  AIRCRAFT  CO  LOCATIONS  IN  QECK  AXES 

PATA  UeP/.OlTbV/ 

P^|S-»hSI«»0?N 

>(<pCOS(PSISP) 

SPXl.aSlN(P$19N) 

XTris(i«H*rPM<*UER*SPSIS>SUROE 
V ( OallF 1 A-ONR*SPS  I S-S6A  Y 
ThfT  AMpThETS*I>2R 
CTmTApLOS (ThFTSP) 

STmTSpSIMTHFTSP) 

Pm  ( PwaKHl  S*t)?H 
SPMlSaSlI'  (PHI SW ) 

CPmT«:»C(iS  (PHJb*.) 

T11S»CTHTS»CPMS 

T?H«Shh!  S*9THTS»CPSIS-CPHIS*SPSIS 
T3|S«CPMis»STHTS»CP$!S*SPHtS*SPSlS 
T1?S»CThTS*CPSIS 

T2F«*SPHjA*STHrs*SPSIS»CPHlS*CPSIS 
T JXP«CPH1S*9THTSPSPSIS-SPHIS*CP»IS 
T1  ♦«»->).  TS 
TP3S»SPhIS#CTHTS 
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l 


t 


n^<»CPHIS*CTHTS 

c CONPuTS  GEAR  LOCATIONS  IN  THE  THETaO.PMlaO.PSIS  AXES 

On  6 J"  1 « A 

XTIiOIJIaEIGCJI  #CPSIS« V 10 ( Jl *SPS IS -SURGE 
yii»oi  jiaviG<ji*CRSls-xiGui  *spsIS-skav 

A CONTINUE 

C CO  <**||TE  1-fCK  HEIGHT  NFNEATH  OEAHS  4N0  C8 

horc» (1  I *HK»vF>HlPS«T33S-XI0*T13S-rIP«T23S*HlS-HlPS 
PO  T J«1.a 

hnecx  I J*  1 1 »Hf  A Vf-X  ir,0  I Jl *T 1 3S-Y 1 00 1 J J •T23S*HlPS»  I T33S-I . ) *MI$ 

T CONTINUE 

C COMPUTE  I.i  I STANCE  FROM  CG  to  TOUCHOOtoN  POINT  IN  NORTH  EAST  AXES 
* TOT»  ( X Tu*  SURGE ) «CPS  I S-  ( YTO»SvAYI aSRSIS 
YTOIalXTI  »SURtiE)*SRSIS» (T TO ‘SPAT I *CPSIS 
XEafiNH-XTI>I 
TPaOf H-TTUI 

HTObhE  Avy -»  TP*T 1 3S-YTU»Ti!3S.H  lPi»T33S»HlS-HlPS 
HP«hIN|^)-mT0 
IE  (Xtfl-XlM  100.?. 2 
7 ir<»iu-*.iM  3.3. 100 

3 IE  ivlu-vist tOO. 100. * 

A IE  ( VIII-T/-5I  *>.S*  100 

A C'l  T I 

lIUOMl 

c f rv.PuTt  x.Y  VELOCITIES  OE  OFCK  TOIICH00MN  POINTS  TO  OCTERhINE  RELATIVE 
C t/.'CE  NtAH  VELOCITIES 

XiitpkD  I 1 I »-HIPSATHETSO-VlO*PSISO 

votckom i»*  to*PSiso»HiPSAPHisn 

NI»TO*UI  II  a*  tO*TMETSn-VIO#PHlSO 
to  H Jal.A 

XIITOEUI  j«l  )»-hIpsaThETSO-VU.O(  Jl  *PSISO 
YOTPKU  ( j.  1 1 axloo ( Jl  *P«SISO«HlPSAPHIsr> 

HOTPKUIj.ll  bxIi*OIJI*ThETSO-YIW><J|ARHISO 
P CONTINUE. 

Sir»OFUN»SUHGFI»«CRS  I S-S* A YO*SRS  I S 
Sn3OEUt»SUH0fU»SPSIS.S0AY0*CPSIS 
i>o  o j*i  .s 

VIwn  lJl»EI>TI>Af»CJl#Tll  S* YOTOkD  ( jl  *T21S— HOTOKO  ( J)  *T3  IS  *S'JROCON 
VIIKF  (J)»xi.T/>*»>U)AT12S*vr)TDEr>f  JI«T2?S-H0T0E0I  J|AT32S»SUR0F0E 
HOTO*t  Cj)a-xOTDPO<JI*T13S-YOTO«U<  Jl  *T23S»hOTOKO  ( Jl  *T33S*HEAVE0 
• CONTINUE 

Y^oar>vPai3) 

ENOaOXPA  ( 1 1 
E«Oaf>AP*  121 

►L4E*l»*H/>eC»f  <SI-hOECK  IAI  I / I2.*VpG) 

Of.  AW?a  InPtCK  (*l -HOECK |3|  ) / I XNO-XMG  I 
GO  TO  101 
IA0  Ofl  11  Jal.S 

HOECK I Jl *0. 

VO<NI Jl  all. 

V<iw*  ( Jl  all. 

K*T|.*E  Cjl  aO, 

11  CONTINUE 

RLAPlaO, 

►l.AH/aO, 
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1*11  CONTINlll 

ro  i*  j»i»* 

if  ( » I u ( ji-hofCK  ( j«l)  ) 12.  12.13 
13  ITOtlCH(J)«l 
(.0  TO  J» 

13  ITOUCM(ol«f> 

14  CO'iTINUt 
PFTI(“N 

F IsiH 


VIH«OUTlF.F.  PILOT 

COmm(ih/*F  LOAT/A(S00)/IFIXED/tA(200> 
rnMkON/OF/fU2Qn>/ICHF/!H<SO) 

C*>MMON/r.»iKi/to»(  100) 

m-FMSK.K-  The  TEl.  (20)  ,Of.L(20)  .XE1L  (20)  .VYL(20)  .PHI EL  (20)  .NLAG(?0>  . 
1P4L (20) .“SI  Ft (2  0) «H«L (20) .ALTEL (20) ♦ ALTOEL ( 20 ) • ALTE IL (20 ) . ALTDDEL ( 
1 ?fl)  .Tt  It  (20) 

PfFkSK'N  V»l.  (20) 

Dt'FFSK'H  HnTi)«E(T> 
f >)i  i J V A L F * C F ( I * ( 1 ) • I MODE  ) 

Foil  IV  At  t NCF  (THETH.A  (SI  ) . (PSIR.Alb)  ) ♦ (PHlP.A(A)  ) 

rnillVAt  t'NCF  ( ALFA.  A (?S)  ) . (HFT  A « A (261  ) * (PH.  A ( 37 1 ) » (09.  A (30 ) ) 

FOHIVALfF.CF  (*0r,,A(174)  ) « (YCG.AdTi)  ) • 

1 (A(3V) .PH) . (VP*. A (70) ) . (ALTO.A (rtOI I . (ALT. A (03) ) 

Fftilt  VAI.F  NCE  ( IHPAK.  IHI^O)  ) , (JOVDA.l  A (IS)  I , I HLONSTK  .H  ( 7)  ) 

FO|iJV«LF  NCF  (HLHSTKO.h(h)  ) . (HLATSTK  .H  (VI  ) • (HLTSTKO.b ( 10 ) I • 

1 (PHOHFO.HI  1 1 > ) . ( T wOOT  . h ( 1 * I ) . ( TnPOTIC.b  ( IS)  ) • (TMTnC.P  : 16)  ) 
f*)|iT  V*LE*-TF  (WHfnO.H (21 > ) • Iht.DIUol)  • (X£.M(141)  ) • (YE.  <*(142)  ) 

FOI'l  V.lfl.LF  (ALTC0H,H(l43)  ) , ( AL ? DCOH .H ( 1 44 ) ) . ( YCOM.t*  ( 14*|  ) 
FOUIVALFHCF  (XCOH.H  ( 14(.)  ) . ( THEY  COM.  H (147)  ) . ( PHI  COM.  H ( 140)  ) 

FODI VALFNCF ( VXCOM.HI 14V) ) . (XTOI .4 (If*) ) • (VTOl .H( 1V0) I 
Foil! VALEhCF (CPS! *A( IS) ) . (SPSt .*( 1*> 1 . (PHI  1C. A (230) > 
foii?  V«l  KM>‘  (THETIC.AI231)  ) 

FOIl?  V ALFHCF  ( ! T ASK  « 1 H ( 30 ) ) 

FOIHV4LFNCF (VE.A (6S) ) • ( VN . A ( 64 ) ) . (CTHETM. A ( 1 IS) ) • (STHETP. A ( 1 1*1 ) 
FOUlVALFl.CFIALFAlC.m42)  ) 

FOU1  VALFA’CF  (MLAC.ll)  .14(30)  ) 

FOHI  VALtllCF  (VX.A  (rOO)  ) • (VY.A(201  ) ) . (THTNIC.B  ( 1 0)  ) 

F •»( I VALFUCF  (YCO,  A ( | TSI  I . (l)T.  A (iOMI  I 
f Oil)  vaLFFCF  ( tHMOOFF  . 1*(S>  ) 

Fniifv«tFr.CF  (IHOL0.1HI17)  I . ( I SE  ! ’ I " ( 121  ) 

FO(;TVAi.FF  Cf  (I5t»wAT.Ifi<7)) 

FOIlTVALEFC*  (T  Inf,  A (303)  ) 

FO'IIVALFIiCF  (H'ITOfE  ( 1 ) • A (447  ) I 

EOi/TV  At  F NCF  («*Chk  . IH  (22)  > • IFBEOCK.OA  (10))«(TO.GA(19)).(T1«GA(2O)) 
FOH I VALF.NCf  (H(1S0)  .PSICOM) 

EOUIVAL!  f'CF  (T2,C.A(21I  ) • (PMA6.C.A122)  ) . (MCHK . IH (23) ) 

FOIITVAI  r.  I*(.  F ( | *»OFX  T . ) A ( 1 1 0 ) ) 

FOH  I V4L  F *'»CF  (XCR.A(174I  ) 

FOHIVfcLFVCF  (W.A(4S4)  ) 

FOH?  vALFi.CE  (i»A  (36)  .VEHII)  . IGA  (37)  .ALU)  . (GA( Jb>  ,BKlV)  . (6A(3V). 
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1 o«?V) 

f -JflTvALf  “iff  (G*<*1)  'WKHpPlI  . (v*(*<>  «H*9WUi) 

E ftit(  V *L*  IMIO)  . (<>*(**)  •J<T*T1 > • 10*  (*b)  .RK-LPH) 

*1i'I  V*l*f.CF  («A 1*6)  •ThCTI)  . (6A(*7)  • AL  73 ) « (GA (*d)  .PKALTO) 
El'ltvALESCt  (ftA(*9)  •THbTCO)  • (MKTnT2'ftA(S0>  I • (H*THT3tt»A  (SI  I ) • (t*nTHT * 

1 'ft* (9?) ) 

EQUIVALENCE  (M*YF'.GAt&3)  ) . (MKVE.(**(!j*> ) ♦ (MMPSI t6A(S5>  > 
fOHlVALfNCCIOA(Sft)  .RKPhILT)  • (RKPLT«GA(57|  ) 

fQl)IV*LF»CF (ft* (A6) .P*ThL6) . (GA(6V> .6KQLNI « (GA(60> 'RKNOZLN) 
EQUIVALENCE  (ft*  (M  ) »Vflwl ) f (6* (62)  . ALT*) . (6*  (63)  ♦THTNC1 ) . (0A(6*>  * 

1 i CM  > ♦ <<;*  ( *6)  «VP*2)  • (6*  ( 66 ) • Vft«3)  . (G*  ( 6 7 ) . VR6* ) . (ft*  (64)  .ALTS) 

FQ'*T  VALE  NCt  (ft* 1 69)  ♦BKTHTb)  • (HKVY1  ,QA (70)  ) « ( UK V n 1 ♦ G A (71)  ) 

EO'I  l VALENCE  (MAVY2*6A  (72)  ) . (PKVX2«6A(73)  ) t (ft*  (7*)  *RKYP6l ) t (6*  (75)  t 
) RKPhIW) 

f<J*IIV*L£F*CE  (A*  (76)  •PLNTH72)  « (ft*  ( 77)  ,6LNQH2> 

EQntv*LENC*  (fi*(7ft)  «B(.TPHI2>  t (ft*(  79)  'RI.TPU2) 

EQUIVALENCE,  (ft*  (HO)  .MP61)  « (ft*  (HU  'H»P$tl> 

FQ«tT  vaLEnCE  (HIC»*  (2*1 ) > 

F.Q«l!V*LfcNCF (PA<62> .PTHW0T) . (GA(BJ) .MTHR0T1) « (0*(6*) «RTHR0T2) 
EQUIVALENCE (ft*(H»)  •ALFTWmU 
E ')■•  I V*LF NCE  (ft*  166)  ’/COO 

EQUIVALENCE  (G*  (67)  .TP1TCH)  . (QA(HH) .THET2) 

EQUIVALENCE'  (PSA*. 6(6) ) t (STa6>H< 1)  ) 

F Q'M  v ALENCt  • 1 200F  * 1 * ( 16)  I 
EOltlVALEM > (hTU«H(31)  ) 

FQ.lTV*LENCE(tMroACK. 16(321  ) 

CQI'!v*UnCF<mm0v.6(32)  ) 

• EQUIVALENCE  tVt>Q.*(90l  ) « (»THH0T3»ft*  (01 ) ) 

E Q>H  v»LE  NCF  ( 9ALTTMP  «fiA  1 92)  ) • (RALTOTiGA  ( V3) ) 

( ftul v *LE *(t F ( A ( 600 ) .PM*> 

EQUIVALENCE (hJC.  A 12*1 ) ) 

EQUIVALENCE  (ft*  < 95 ) » TNfcESHl ) * (AA(96> .THRCS62) « I6A(97) .THRCSH3) , 

1 (ft* ( V«) .ThpFSH*) « (ft* (99) ♦ THX ) , (to* ( 100) * TRY) 

F Qll  I V ALE  NCE  ( *t  1 « A ( *99)  ) . (Yt  1 •*(*««)  ) . (XC2.  A {*971  ) . ( YC2,  A ( *96)  ) 

EQ'II  V*LC  6CE (R*TMT6*A(*95) ) • (MK Y66AX • A ( *94 ) ) 

E O'l IV ALE  ICE  (OLTAF  . A (*H*  ) ) • ( ML TvE  • A (*03)  ) • (RLTSC • A (*42 ) > 

FO'IIVALENCE.  (TAE  '*(*93)  ) . ( TVF  • A (*92)  ) . ( TSCPSCC • A (*91 ) ) 

EQUIVALENCE (»L'iAFtA(*67) ) • (MLNVE • A (*66) ) t (RLNSCtA (*65) ) 
fQ<(fV*LE>CE  (PfcMAF-.A  <490  ) ) t (PEOvE  . A ( *69)  ) > |P£QSC  » A I*HH)  ) 

0*7*  M*LTThP/.2/.MALT0T/-.!»/ 

(>*TA  IHTwaC*/0/ 

0*7*  N~nv/1«./ 

I AT  A The  T 1 / . 1 396/ 

(IAEA  AC(>y/6<)0  •/ 

(•AT A *LT  2/**6  ./ 

OAT*  MHThTH/.UI/'MKTMTP/.O*/ 

Data  Th*/.i./.7my/#./.»kyppax/».v3/ 

Data  *hynn1/...oi/.plntmt2/1S./,mlnoe<2/10.5/ 

PaT A OlcHfiT/,*/ 

0*7*  MLl*Pc/-l(l'/«HPRl/5'/<HPPSIl/2'/ 
n*TA  KLT-HI2/-10./ 

I A 7A  ALE  1 Ml*  1 /<*./ 

(;ATA  Tm I Tf h/ lS./«THfc'T2/ «209  / 

QaTA  VE  w 1 1/| 6 •/ • *LT1/30U'/»RK1 V/3«/eRK2V/1 •/ 

OATA  IhMiOFFVU/ 
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OATa  Vfc»*l  /?T0./ 

data 

OATA  ALT  T R**l  /«•  •/ 

DATA  ««THn/.Ul/»BKAlPM/-.i>/ 

DATA  ALT3/1o(>U./,HKALTD/.<;5/ 

DATA  l/.T3o/.l/.T*l»/.i!/«T5li,/.2/ 

DATA  (.'•LA*  1 1 ) • I»l  • l*)  / l**l/ 

DATA  TURf  ST'l/.0S/.TW»lSH2/.05/.THR|rSH3/.25/.TMweSH*/.25/ 
[’AT A TH[  ICO/. 0//.RKThT//-. 005/. «*THT3/-.Ul/.HKTHT4/-. 0005/ 
Data  rkyf/-.00«!/,RAV»  /-.01/.rkpSI/-1./ 

Data  rat'hilt/-2o./«pkplt/-1  *•/ 

DATA  “ATHLN/?r»./,Si«OLN/7.5/.<»KN02tN/.02/ 

DATA  ALT«./hO./»TMTWCl/5‘>./f XCfil/3sO./ 

OAT  A v<»2/?O0./.vWK3/«;30./.VR«**/3O0./*ALT5/600./ 

DATA  wIhmiI  /«<  • / .RTmROT  l/-3./.R»"Ri)T2/0./ 

DATA  T0/l./.Tl/2./.T2/3./*WWAft/l./ 

DATA  KINSTKO/.6/ 
t'ATA  RTKHDT3/U./ 

DATA  TUH.»/.*>/»TOCL2/.A/ 

TP  «JA*ODH  1.1*2 
ri.ODSTkpPLNSMO 
hTnOaHTn 

JJPAK«1 
TT^RO  f«2. 

IAwwATM 

)*«ATt»»l 

I5RATC«1 

Tofl3*TLTlJ *TOCL? 

» AP  C-OT/T2R) 

f »»7Lt»t aP[-CT/T3P| 

A *P  J-OT/TaP) 

» /P/T«e»P(-0T/T5PI 
A^VAT/aO. 

PLAT>»0. 

PllOP/«0. 

Th-»oi<;»o. 

TwW>TU«0. 

]mA»>U 
ADOOl  D«0. 

AtTJDLU*0. 

►t.NlOLDPO. 

Iv»«0 
tVAfcaO 
1 tA.sO 
Pro«Cl»0. 

PFOAF«0. 

PFOvF 3»0. 

KNAMU. 

RtNVF A»0. 

PL  T*C  l«l>. 

TAF«0. 

TV*3«0. 

Tsr»«. 

AlT»A«0. 

►ltvf j»o. 
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Pl_TSClaO. 

IF  CM.T-0I.T3. 10.  )?**,«. 

0 TmFTC0»Th|T» 

V»CO**VHW 

TwFTPClao. 

ICL  Ik’>*aO 
S < t TCH«0 . 

hoi.o»i 

lM.TI-1 
C.o  TO  <* 

7 COmTINUF 

I*LT1»0 
ICLl“e»l 
TwOi  U»0 
Tm*ThC2bO. 

T-FTWClaU. 

0 CO..T!*'»F 

TMFTHC^aTMFT* 

Cast»aCOMP$TW> 

SPM«a*IM»9n>> 

Xf.0**0»«t  *cm  ♦ Yf  *SP5I 

IF  {*»•*<  XM>«OI  .LT.  1 . > XCOMOaSIGNC  l.O.XCOMO) 
vComobyt  •r»st-*eaS»*M 

V*COMO«V* 

FFFaxCOM' 

VFl»TCO~(i 

lF(St«iWM.«W*COHOI  .F.O.SIONa.,XCOMO)  >VXCOMO«-.1»XCOHO 
*r>»CFM»HOTOFf  Cl). 

WF(*|  8(«, 

SFTHM*paO 

T-FTCOMaTMFTIC 

FCOmbXCOhO 

•(.FT»a«*|.FA 

0MirOMau. 

VCOMsTCOHO 
'/:«*t»avt.w 
*LTr0Ma*LT 
• l TUC'>wao. 

TuTMCaTHTMlC  - . 

«L»TSTtiaKl.TSTFO 

4C.TF 

Th^OT  a Th*»OT  1C 
Tm0TM  IxtaTHMOT  IC— 9. 

TMt|Mla||.«...THMOTlC 
Thi.  I‘«^aln?.-TH«OTIC 
Tmi.  1v.)»tm«TmIN»ThFOTJC 

wuijt-ti.aHWf  on 
00  TO  100 
2 ‘ CONTI NOT 

ftO  TO  C lO.?fl.J0.*0.«0.60> .ITiSK 
10  f.O«TtNUT 

TMfcOTair'UO.aT  IMF.&O. 

TFCT"*M>T.f»T.tOO.>  THAOTalOO. 

•>|.OflSTKakt.N<(T«0 

0(.»TSTaaO, 
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japaas} 

ir CTI-C.«T.?.I JPPAKaO 
|V»wATbO 

rMT**c»«. 

If  (VrtA.f,T.lOO.)*£TRAAKBl. 

IF IStThKAK.ro. J . 1 JPBAKal 
ir IStTPPA* .tU. 1 , I TBf T»1 • 
in TACT .to. 1 • I THPOTaO . 

TMM4AB2IU 
r,n  TO  110 
20  CONTINUE 
VFaVCIi 

r.*n?»cosiTHTNC/^T.3i 

SM')7ahlM(TMTNC/$7*3l 

{auAKaij 

inTW.Lf  .?.)  JRPAKal 
jr <v*.GT..?S»  JPPAKaO 
VEPbV*CO*>«VPw 
VFP  |atft»«|*vPH#OT 

Ir  (A-S(vn-I  ) .6T.VEW11 > VERIaSlPNtVCPll.VEPI) 

TF(ALT.lT.ALTI)  VEPJbO. 

T*4»OT0L»Th60T 

Tp.»OT»Th,-(>T  JO  <PKlV»VER^RK2V*VFWl)«O0Z‘SN07*<RALTTHR«<4LTC0«-ALTt 
1 • AI.TUF  «PALTl)T  I 

IK <alT.LT. ALTS. akO.TmPOT.lt. 100.)  TMPOTalOO. 

I n tm«ot . i.t . i thpotol •utnrot n tmrotbtmrotol*otmrot 

Jr ( THPOT ,i.T. ( TMPOTOL-OTMBOT  > ) Tm*UTbTHKOTOC-DTHROT 
lriwpa.LT.VPwl)  TPROTalOA. 

PilflPF  i|a*«a  pup  J •PP»PKP(lu2aH£T  A»PPEOO 
miHOi  (. 131,31, 3C 

31  r«*iTlNyf 

c p I re-  cowwano 

.IPJALFTwM.LT.ALrTRMl) ALFTPMaAt? T»P«. 2 
ALTOCOHaALTf) 

in  ALTUCC.w.LT.O.)  ALTPCOWaO. 

TpPTwCJaALFTPM/S7.3*ALT0COM/VPV 
TprTwCKaTHF  TOC2*.3*<THt TPC3-THETH) «DT 
TprTPCaTnF  TPC2«Th£TPC3 
ALTfOMatLT 
Al.TPCHlaALTnCOK 

4 V J TCHa 1 

IF  t IhETPC.LT.THFT 1 ) ThETBC«TMET1 

ir (TnUPC.MT.THFT2.AND. CTHTNC.GT • 1 0 . .OP. *C6.LT.XC01 ) ) TMETBC»TmET2 
ir  |ALT.r,T.  (ALT3-|ALTO*»2)/20.n  ALTSbALT 
TMFTPClaTPfeTPC 
IF(Tp£tPCI.6T..5|T«£TkCla.5 
T»»KTrO»T^I  T PCI*  ALFA/S7. 3 
'SO  TO  33 

32  rOAiTINi.F 
SaITr«a5»ITCHa.VS 
TmF T«t 1«TpF TPCla.vb 

ALTI*CO«aalT0CMt*Cl.-l CRCT-ALU)  / < ALT3-ALTS>1 
|F 1 1 ALT  1 .f  0. 1 ) AlTOCOMsO. 

ALTC«“»»tl 

Jr ( APS  C*tT« ALTJl.LT. 20.1  lALTfal 
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IP  llALTt.PQ.l)  ALTCOMaALTS 
ALTP»ALT-ALTCOm 
ALTOE-AlTO-ALTOCOM 

IP (4mS< ALTfc ) ,<»T,50.  ) ALTE»SION(SU.  . ALTE) 

IP!  APblALTPP) .iiT.30.) ALTOE«S I ON <30. .ALTOE) 

!P<ALT.fiT.ALT3>  I*CTI»l 
ALTEt"ALTEI.ALTE#OT 

IPIAHStAl TCt> .61.200.*  ALTE I "SIGN (200. »ALTEI) 

ThptpC*T».FTOC1  * 1 1 «”5pITCH> • (THE TCO»CNOZ#  <RKTMTf* ACTE 
1 •#KT«TJ»ALTOE«»KTHT**ALTein 
(>T*«aTM{  1MC“TmET»CR 

IP  ( AhS  (I'Tm)  .«T.  .01  >TH£TNCaTHETRCH«!II6N<.01.0TH> 

IP  I TMfc  Tec .C T . THPTRCP . AND . ALFA .L  T *1.1 THETRCaTHETRCR 
33  CONTlNUF 

IPlTNtTMC.«T..S>TMETRC«.S 
IP(THkTl«C.LT..l|  THETRC». 1 
ThFTmCMaTmETRC 

THPTCO»««ThPTi»C*ST,3 

PHtCaHAY. •Yp.RRvE* ( VE#CTNETR»VN*STHETR> ♦HKPSI*RSIR 
IF (A«*tHMlC> .GT..*>HHlC»5lGN( ,4. PHIC) 

PMIC0«at'«lC**T,3 

M.*T<5TPaPFPHlLT*(PHIR-PMIC> ♦RKPLTapfc.RLTSTKO 

►(.ON<TPafcPTMLN*(THETP-THET»C) »RAULN*OB«»LNSTKO*»KNOZLN* ITMTNC- 
1 THTNICI 
C T»IM  POilOpC** 

MLNSTKObLLNRTKO.CHLONSTK-RLNSTKOI  ••  004*  I I**O0E»l » 
f AT a 1 

IP ( INUCPT .ED. 1 * 4nO.PC6.6T.XC01  . AND. ALT.LT  * ALT4> THTNC»THTNCl 
IP (ALT.M. ACT*. 4N0. ALTO. PT.0..ANU. VHP. GT. VHH2) TMTNC»THTNC-2. S*OT 
IPI4LT.pT.AkT4. AmD.ALTO.PT . II . . ANO. VRM.OT • VRM3) THTNCaTMTNC»S. *OT 
iPt 4LT.pt. ALT*. ANO. ALTO. BT .0. . ANO < VMto .GT • VPM4I  TMTNCaTHTNC“l 0 . *OT 
tP«TnT4-C.LT.<J.»THTNCaO. 

IP(*LT.(-p.4LTS»  iHOLDal 

IP ( ImNUOM .PO.l .ANO. XCP.LT. XCH2. ANO.THETM.LT.. 2«. ANO. THETR.GT,. 07. 
I 4f<n.Ah>c*<N(M»  .LT..2I  SO  TO  3« 

GO  TO  3*> 

3*  PLONiTpaaLNOTRO 
►LATATPaaLTSTRO 
MtOMPOaHatOO 
Th4OT*10n. 

36  CONTINUE 

OO  T<>  110 
30  continue 

IF  IT  I"C.f.F  >60  TO  301 
IO«»ATa« 

I AaATC»0 
lAPATCMaO 
3«I  LIVITInO* 

XP?axt*C»St«rE*S»BI 

« VxCO«N»*VPRI>  • IXE2/XC0M0I 
V*  *vtP I * .2* ( VICOm-VX ) *OT*RK2v 
IPIA*S(X»?> .LT.10.1 txswal 
|P(tw»a,»b.Ot*CA«aXEE 
IP | IX  A*. r 6.0 ) XCO* la (CON 
IPltrpa.E'i.ll  XC0«*laxC0Nl*.6T 


A-90 


MADC-*T02*-30 


IFITkSa.FO.H  XCOMBXCOM) 

XglaXtfc-XCOH 
XFll <1>»»F 1 
Vr?aVt*C**M-«»*S»SI 
YCOM.»YCO-O»?0.>*«xe?/XCO**0»-J*. 

IP  ( I YSx.PO.O)  YCOMl»YCO** 

IF  ( I Vba.FO.  1 > VCO*»1»YCO*I«.VT 
TFIIYSa.FO.il YfO“»YCOMl 
IF  tAkSIXF'ZI  .LT.10..AND.ARSIVXI  .LT .2 . 1 1 YSWa 1 
YFlaYKf-VCOM 
YFlllllarFI 
THFTOaTHf TIC/&7.3 
lFIIKaa.FO.il dATMTba 1 . 0?*RKTHT5 
IF  iwk  rHT*>.l.F.HKTHT6)PKTHTS»»KTNTP 
P*V*BkMHTS*TWX 
V VI.  f I l»V»-V«fi«H 

TafTPCaK*  T-TS»«r 1L INLA8 ( 13) I ♦RKVX*VXL (MLAftl 1«) 1 ♦TMCIO 
IF  ft  YSa.r.o,  1 )d* vRHlaR*VPHl«1.02 
IF  (P«VkH|.LT.H*YPMA)(IRKVPMIeNKVPMAX 
VYaTfcVaRft  YPWl 

VYLIl»»VY  J 

Pw!r»*nYPHl»YtlL  <*LAM1>  > ♦MKPMIVY«VYL (Nt*«<2> )»PHIIC/5T.3 
|F  .bT..3lPHlC«SI<>N(.3.PHlCI 

IF(ThETpC.OT..3IThFTRC».3 
IF (T-tTKC.LT.O.)THETPCaO. 

Thftfl«1)*TmFT»* 

TdFPaTHF.  TFL  (ML*ft (3) 1 
OdL ( 1 ) »UH 

kLONSTlsULNTMT2*(THFR*THCTMCI«KLNUH2*0«LINL*«UI) 

I F | b t «L  COST  1 - PL N 1 OL 0 ) . L T . THRESH 1 1 RLONST 1 «RLH 10L0 
I F | PL ONS T 1 .HF.MLNlOLniRLHXFsRLNAF*!. 

►i.*fvf  i»  ihlt'hst  i-plnioloi  /or 

PLHVF  <»»pS IPLNVF1 1 
PLMVF  3*pl*,VF3*plhVF2 
RLNVFadt.il  vF  3/(T|mE».0SI 
Sr.>iLHVa«,  | bM  ( 1 . «RLHVF  1 1 
I f ( *as  t «!.'  VF  1 1 .LT  » . S I SONLNVaO . 

I F < < *<;».(  » v « sr.NL  « VO  I . C tf  . 0 . . A MO  . SGNLNV  .NC  • 0 . 1 RLHSC 1 «RLHSC  1*1. 

H.»SC»kln*C1/(TI»*F».0SI 

SRMtHVO»S«MLMV 

P|.>l|OLI»aPlONSTl 

►t.ONS TFat  KP2LN*  (PLONSTi'-kLONSTl  1 *RLOMST  1 

IF  <PL«i-i*l*.I.T.  1-7.5-RLMSTFOI  IRL«HST2a-T.5-RtHSTK0 

|F(kL'*NSTi».r,T.  (3.7-PLHSTKO)  I t<L0NST2»3.T-RLNSTK0 

HL'TMSTKBkLOUSTAaPLHSTFO 

PNTFL'llPHHlR 

HRt. « 1 ) ap** 

PL*Tl»PLTHHl?a(PMlELIML*6(Sl > -P«1C> ♦PLTPB2aPdL INIAO (6) I 
IF  | *•>&  <P|.  AT  1-dLTlOLOI  .LT.THRFSh*!  RLATlaRLTlOLO 
IF  I ®L ATI.* if .BLTlOLOIRLTAFaRLTAF*!. 

ML»TvFlatM.ATl-RLTlPLDI/OT 
HLTVP  *■**>«!  <RL*TVF  ll 
►LTVF  jad|.  TVF.1*M|.TVF? 

Al.TVFaPLTVF  V<TJ«£*.0S| 

SAml  T VaSl  i»M  ( 1 . »R|.AT  vF  1 1 


A.  100 


t 

j 


NAOC-ZT02*-30 


lF|A*S(HLATVFl> .tT..Z)SGNtTVa(>. 

if ( (S0NLTV*56NLTV0) .f«.O..AWO.Sl»*tTV.NE.O.)  «LTSC1»«UTSCI *1 . 
(,LTFC»«LTSCl/(T!Me*.Ob) 

SSNCTVObSkmLTV 

ptriotuaPtATi 

PtAT?aE>P7tTa<PLAT2a»tATl>«RtATl 

l«L»TSTR»Ki.*T2»kLTSTK0 

Phi.  C 1 I 

PSTC»PSl« 

IF  I AHS  0*5  IC I .6T.1.)FSIC«SI9N<1.**»SIC» 

PSTCOPaPMCFST.S 

M|FLU»»MSIP-PSIC 

If  {*“S  (M«.IEL  fill  .AT..3>PSIEL<n*SIGN<.3.PSIEL<I> I 
h,nal,^(.-l»«ML(NL*0(71 1 *PPPSll*PStEL(NCP6(ai  I 
► FTM-mFTA 

IF(AHS<HkTAl)  .6T.3O.)HETA1bSI8NUO.«0ETA1) 

MlOPlanliOPI  •PFHUOi,PCTAl 

I F | AhS  I Pl/GP  1 -HUOOtO ) . UT  . THMESH3 > «WOP I ««UOOLO 
IF  (PtiUK  1 .hf  .MttOOCO)  Pf  OAFaPEOAF*!  • 

FFrtvF  1»  (M)OPI-MjOOLO)  /UT 
P«r>VF  €•  A“S  tPFUVFl  > 

PFf>VFJ»P«OWF3»PFOVF2 

PFnVF«Pfr>VF3/(TtME*.0b) 
s«  ipv»s  tr.i»  ( i . .pcovF) 

IF  I AHS  CPF  t)VF  I ) .LT.2.)SONPVbO. 

IF( (S»NPV»SANPVO) <EO. 0 • • ANU.S8NPV  «NE .0. ) PEOSClaPEOSCl *1 • 
PFr»5<;»PCOSC/lTlME*.05) 

$A*PVl>aS<-NPV 
Plioni.  I>aPUl>P  1 

»IIOP2ak*P/Wa(MlinP2-RO0PlI  ♦PUOPl 
Rt|OPF0»P«i('P?*PPF00 
PHlCONai.Hirab/.3 
rMCTCOFaThFTPCa»T.3 
ALTCO**aACT 

IF(AMXaE)  .LT.10..AMO.ABS(YE)  .Liao.)  iYZaJ 

IF (IVZ.EO.dl ALTCONBMtC 

1f(»hS(A|  T-HTUU-hmOVI .tT..Sl IHSP"1 

lFUHSa.kO.il  At TCOHbMTOO»HHOV 

A|.TPCi»*'a(l. 

IF( IY/.KJ.I) ALTnC0Ma-5.*(ALT-HT0U-HH0V)/IHlC- 

1 HtPO -HrtOV) 

IF  I IhThaCF .FO. 1 1 ALTCOPBHTOOaHMOV 
AtTf «*tT-ALTCOM 

IF(AiS(AtTF|  .GT.10.1  AtTEaSlG*4(lb..AtTE) 

M.TFI«AlTfe  I*i»T*»LTE 

IF (AlSIAtTFP .GT.lOO.) AUT£IaStUN(100.«ALTEI) 

IF  « IMla ACa .FO. 1 ) At TOCO«aHOTDKC « 1 1 
At  Tf»F  a At  Tl'- At  TI»CO* 

IF (AHS (aLTPE > .AT.  S.)  ALtOEaSIfiN ( S.tAtTO'l 
ApFraa  (hiiTIifF  C 1 1 -VOECKPI  /OT 
VnFrAPaHriTOKF  1 1 ) 

AtTM'C»— mll-AW-CK 

IF  { AHS  (At  Tlil.f  I • AT.S.  I At  TODEaS  I AN  IS.  • AtTUOC ) 

Al.f*L  UIbALTF 
AtTFIt 1 1 1 aALTt  I 
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ALTOFLUlaALTOF 

ALT^DEL  ( 1 I »AlTDOE 
Jp  (TTHHOT.LT.TDFL3)  GO  TO  37 

Tn30Ti«t«TH*0T»*cTeL  (NLAG  ( 9)1  *»THf*OT  1 *ALTDEL  (NLAO  C 1 01  > 
J*nTHPOT2*ALTFJL (NL*G ( 1 1 1 1 ♦HTHBOT  3a ALTODEL <NL4G( 12) » 

I F ( ThhUT l .f.T  . Thl  I Hi ) THHOT 1 "ThLI *1 
IFlTHtilOTI  ,LT.THL|M3)THl>0n»THLlH4 
IP (ThHOT 1 .GT. Thl 1*2. ANI>. ISaHAT.tG.O) THHOT laTML 1*2 
IP  (THWOT.GT.lOl  ..ANO.ISWWAT.EO.Ol  IS*ATCal 
IFIThkOT.lT .W. .ANO.ISHWAT.EQ.l  I ISKATCaO 
IP(1F*aTC.hf.ISwaTCP)  TTHHOT  »U  . 

37  COHTlNOf 

IFITTHHuT.LT.TPFLllGO  TO  38 
!«4»AT>l$fcATC 

JfITThKOT.lt. T0fL3»G«T  TO  38 

IF  (AhS(ThhOTI-ThROTO)  .LT.TMHESH4)TMR0T1bTHP0T0 
JF (TmHOU ,HF.ThhoT0)TAFbTAF*1. 

TvFJ»«ThkoT1-TmpoTO)/OT 
T VF 2eh'<S  (T  VF 1 ) 

TvF3«fWF34TVFF 

TVFaTVF3/(TjH(:».0SI 

SANTV>SK-M1..TVFJ) 

IF  <»h*(TVF!) .LT .2. > SGHTVaO • 

IF ( ( SONT v ♦S.fiwT VO) .£0.0. .FNO.SGHTv.NE.O. ) TSC«T$C*1. 
Tsre>«!tt«Tsc/<TjHE».05» 

SGHTvOaSl.HTV 
T HOOT  0*1 h»OT I 

TmP0T2»F  *H7T«  ( ThR0T2-THM)T1  » ♦TM«0T1 
Th90T«Thh0T I C*  T HB0T2 
|F (THHOT.LT. thbtmini  tmpotbtmrtnin 
38  TTh«OT*TTHMOT*0T 
!S**TCH»JSPATC 
THTNC»THTNIC 

(>n  3*  I *1.10 

T mftfl (21-1) aTHETEL (20— 1 1 
CAL  I?1-TIbOPL  (20-11 
FFIL(<fl-IIaXFlL(20-II 
VF IL  (21-t farflL  (?0-r» 

Vi>L<Fl-I>aVXL  C20-I1 
WL  €2*1  — 1 1 »VVL  Ciro— I » 

Ph I kl 1 21 - II aPH I FLT20-J) 

PHL (?1-I >»PH (20-J) 

PSIFL (21-1  laps 1FL (20-JI 
P«i.  (21-1 ) aunt.  (20-11 
A(  TFI  ( 21  -I ) aAL TFI  (20-1) 

ALTDFL(2l-I)aALTOELI20-I) 

ALTFJcCfI— 1 ) aALTF IL (20— II 

Ai.TDDtL  (21  — I ) aALTOOFL  (20— J 1 , 

3A  CONTINUE 

(.0  TO  110 
40  TMTHCaHl. 

ThUOT  a J 00 . af>»*SIN  C5.*T  1*6 1 
J^fwaTbI 
T «HA««13. 

GO  TO  110 
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60  pmacHb«3 
40  TMBOTaTNPOTIC 
ig**iat«i 

PtOMSTPaPLNSTKO 

»U*TSTR»»tTSTKO 

Biil)*>tO»uPKno 

TMTMC»tHTHIC 

»iNvor«o. 

IF  InChf.FQ.1)  00  TO  51 
IF  (NO*  .fu.2l  00  TO  52 
IF (NCKK.t0.3»  00  TO  53 
IF<nC«p  .t0.4)  GO  TO  54 
on  TO  5*> 

91  Q I Npul aPMAG 

IF«T1«*T.LT.T0I  PINPllTaO. 

GO  TO  55 

42  PTNPllTapKAG 

IF  IT  taK.LT.TOI  PlNPOTaO. 
lF(TI«*F..hT.Tl»  BINPUTaO. 

GO  TO  95 

53  IF ( T !*€ .LT.Tl > BlNPuTaPPAO 

IFlTlMr.tT.TO)  BINPUTaO. 

IFITjMf  .GT.Tl)  BINPtlTa-PHAO 
IF  ITlat.GT.T2)  BINPUTaO. 

GO  TO  55 

44  B INPUT aPPAftaSlN iFBf P'V* ( T INC*T0> ) 

IFlTlae.LT.TUI  BINPUTaO. 

55  ‘CO»*Tl«*uf 

tFlMCMF.eo.l)  TNBOTaTaROTIC«BlhPUT 
IF  f »C»H .»  0.?)  PLON5TKa»LNSTKO*HI1POT 
IF IMCna .*0.1)  PL PT5TKaPLTSTK0»H INPUT 
IF (mChk.LO.4)  TNTNCaTHTNIC** INPUT 
IF  |mC«F  .tO. 41  «l)OPer>aMPCUO*P INPUT 
1)0  CONTI  HUP. 

I F ( *HS  I wiiopFlJ I . G T . 2 . ) PUOPt l>«4 1 l»N  1 2.  tOUOPED) 
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.36 

3 

460702121 

co  vs 

ALPHA.DH. 

VO/ V0A5.4, THETJAO 

0. 

-5.  0. 

5» 

10. 

12.  15.  20. 

1 

0. 

.106  .122 

.146 

.207 

.262  .332  .526 

2 

• ^o 

.12  .123 

.153 

.217 

.263  .36  .556 

3 

47060 1 1 1 l 

CO  VS 

ALPHA. OH. 

VJ/VO»5.4,THTJ*30 

30. 

-4.  0. 

5. 

b« 

10.  12.  15. 

20. 

1 

12. 

.147  .159  .162 

.214 

.242  .20  .34 

.41 

2 

460602121 

CO  ALPHA.DH. VJ/VUbS. *THTJb45. 

44. 

-5.  0. 

5. 

H • 

10.  12.  15. 

20. 

1 

^ • 

.161  .151 

.16 

.196 

•233  .266  .336 

.505 

2 

12. 

.144  .16 

.197 

.224 

.252  .294  .366 

.526 

3 

490602121 

CO  vs 

4LPHA.0H, 

VJ/V0«5.4,THTJ«6U. 

*0. 

-4.  0. 

5. 

6 . 

10.  12.  15. 

20. 

1 

• 

.142  .146 

.163 

.206 

.234  .262  .32 

.42 

2 

12. 

.141  .165 

.193 

.213 

•24  .272  .33 

.45 

3 

500602121 

co  vs 

alpha, OH. 

VJ/V01*5«THTJ»75 

74. 

-5  . 0 . 

5. 

6 . 

10.  12.  15. 

20. 

1 

^ • 

.156  .14 

.156 

.16 

.207  .232  .266 

.4 

2 

12. 

.16  .15 

.172 

.20 

.226  .25  .3 

.406 

3 

510602121 

CO  vs 

ALPHA. OH. 

OH  VJ/VO«5.THTJ«90 

90. 

-6.  0. 

5. 

6. 

10.  12.  15. 

20. 

1 

6. 

.161  .14H 

.166 

.166 

.21  .232  .2 72 

.372 

2 

12. 

.166  .156 

.179 

.206 

.222  .254  ,296 

.366 

3 

520602121 

CO  VS 

ALPHA.DH 

« VJ/VObI 1 »THTJb45 

45. 

-6.  0. 

5. 

6. 

10.  12.  15. 

20. 

1 
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6* 

.102  .145 

.12 

.144  .165  .19  .220 

.273 

2 

12. 

.195  .13 

.126 

.157  .103  .213  .252 

.31 

3 

530502171 

CO  w$ 

ALPHA . OH . V 4/ V0« 1 1 . TM7 J*00 

AO. 

•5.  0. 

5. 

0.  10.  12.  15. 

20. 

1 

&• 

.192  .12 

.117 

.137  .16  .106  .226 

.346 

2 

12. 

.140  .134 

.134 

.159  .176  .190  .236 

.294 

3 

540002121 

CO  vs 

ALPHA • OH • V J/VOa 1 1 # TM7 Ja  75 

75. 

-5,  0. 

5. 

0.  10.  12.  15. 

20. 

1 

A • 

.216  .1 

.064 

.072  .00*  .100  .12 

.176 

2 

12. 

.246  .105 

.074 

.00  .095  .11  .134 

.174 

3 

550702121 

Co  vs 

ALPHA .OH. THT  JsQ . V J/VOaS.4 

0. 

-S.  0. 

5. 

10.  12.  15.  20. 

1 

0. 

•.055  -.0T2 

-.102 

-.145  -.17  -.22  -.3 

2 

6* 

-.14  -.165 

-.19 

—.24  —.27  —.32  —.39 

3 

560002171 

CM  VXS  ALPHA»OH»THT Ja30. VJ/V0»5.4 

30. 

-5.  0. 

5. 

0.  10.  12.  15. 

20. 

1 

6o 

-.055  -.024 

-.03 

-.034  -.038  -.04 2 -.036 

-.010 

2 

12. 

-.144  -.14 

-.14 

-.156  -.166  -.166  -.156 

-.152 

3 

5TUH02121 

CMV$» ALPHA .DM .TMTja 45»V J/V0*5.4 

45. 

-5.  0. 

5. 

a.  10.  12.  15. 

20. 

1 

A# 

.007  -.005 

.001 

.003  .004  .004  .000 

.018 

2 

12. 

-.122  -.110 

-.12 

-.116  -.117  -.12  -.116 

-.093 

3 

5O0002171 

CMVS  ALPMA.OH*THTJa60* VJ/V0«5«4 

AO. 

-5.  0. 

5. 

6.  10.  12.  15. 

20. 

1 

#»• 

.04  .030 

.04 

.037  .035  .034  .039 

.076 

2 

12. 

-.053  -.076 

• •Oh 

-.002  -.004  -.006  -.082 

-.053 

3 

590002121 

CM  VS 

ALPMA.0H.TH7Ja7S.VJ/V0a5 .4 

75. 

' -5.  0. 

5. 

6.  10.  12.  15. 

20. 

1 

6 • 

.00  .079 

.06 

.045  .036  .026  .021 

.02 

2 

12. 

-.042  -.046 

-.055  -.074  -.000  -.096  -.102 

-.100 

3 

AOOOQ2171 

CM  VS 

ALPHA.OH.7HTJaOO.VJ/VOa5. 4 

90. 

•5.  0. 

5. 

0.  10.  12.  15. 

20. 

1 

A# 

•0*0  .00 

.06 

.04  .03  .024  .022 

.018 

2 

• 12. 

-.022  -.03 

— .04 

-.066  -.08  -.080  -.092 

-.094 

3 

A10007171 

CM  vs 

Al PHA .OH . T H7 Ja45. V J/VOa 11.9 

45. 

-5.  0. 

5. 

6.  10.  12.  IS. 

20. 

1 

6 • 

.065  .059 

.046 

.040  .054  .064  .067 

.04 

2 

12. 

-.020  -.050 

-.050  -.06  -.06  -.05*  -.054 

-.044 

3 

640002171 

CM  VS 

ALPHA .OH. 1 H7 J«60 • V J/VOa 11.9 

AO. 

•5.  0. 

5. 

8.  10.  12.  IS. 

20. 

1 

A • 

.102  .057 

.use 

.062  .062  .059  .034 

.010 

2 

12. 

-.024  -.047 

-.049  -.040  -.046  -.047  -.053 

-.050 

3 

AJ0002I2I 

CM  VS 

ALPHA ,0M. THT Ja75 . V J/VOa l 1 . » . 

75. 

-5.  6. 

5. 

6.  10.  12.  IS. 

20. 

1 

Ao 

. 1*5  .005 

.069 

.066  .064  .06  .050 

.05 

2 

12. 

.044  -.02 

-.032 

-.032  -.014  -.04  -.053 

-.00 

3 

641101227 

MOSS 

OEAR  force  VS  OCAH  COMPRESSION 

-1.75  - 1 . 1 A 

-1. 

-.83  -.77  -.513  -.33  -.17  0. 

1 

-32000. -27000. 

• 17600 

.-11200.  -7600.  -6347.  -5000. 

-3000.  0. 

2 

.01  1. 

3 

0. 

4 

A90A01272 

HAIN 

FOPCE  VERSUS  REAR  COMPRESSION 

-1.04  -1. 

-.033 

—.67  —.5833  —.0 

1 

•73000. -16000. 

-0000 

. -4300.  0.  0. 

2 

6602011 1 1 

a-  109 
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. 12. 
,266  -.97* 

672201  111 


PITCH  TIMf  HISTORY  FOR*  SO  AV-8A 


0.  1.25 

1.75 

2. 

a.  a. 5 

9. 

9.25 

9.5 

1 

5.5  6. 

6.5 

T. 

7.  6.5 

7. 

6.5 

6.* 

2 

9.75  10. 

10.25 

10.5 

11.  11.5 

12. 

12.5 

12.75 

3 

7.5  6.7 

9.25 

9.5 

9.5  9.7 

10. 

9.5 

9.2 

* 

13.  13.25 

15. 

1 6. 

5 

9.5  10. 

10. 

10. 

6 

601201111 

STEADY  UHURBlE  versus  range 

- 1 h3o.  — looO. 

-1700 

. -1600 

. -1*00.  -1200, 

•850. 

-660. 

-*60. 

1 

0.  ..o* 

-.06 

-.056 

-.03  -.0* 

-.097 

-.12 

-.1* 

2 

.300.  0. 

100. 

3 

▲ 

6913  11 11 

STEADY 

wBURblE  vs  range 

-2700.  >2500. 

-2250. 

-2000. 

-1500.  -1100. 

-1000. 

•6001=- 

•300. 

1 

0.  .0*5 

.07 

.OeS 

.035  0. 

-.005 

-.0175  0. 

2 

*00.  *3*. 

510. 

550. 

3 

0.  .206 

0. 

0. 

* 

70090 1 1 1 ] 

DOWN 

WASH  WITH  iLBURBwl 

-2700.  >2500. 

-2250 

. -2000 

• -1500.  -1100. 

-1000 

. -600. 

-600. 

1 

0.  .065 

.07 

.065 

.035  0. 

-.005 

-.0175  0. 

2 

71  9 1111 

SIAM* 

RANDOM 

BUMBLE 

-25*0.  -1*00. 

-1200 

. -1100 

. -1000.  -000. 

•600. 

•6*0. 

0. 

1 

0.  .02* 

.035 

.0355 

.036  .0335 

.021 

0. 

0. 

2 

72  9 1111 

TAU  RANDOM  HUMBLE 

-25*0.  -1*00. 

• 1200 

. -1100 

. -1000.  -600. 

-600. 

-**0, 

0. 

1 

• 

1.02  1.02 

1.05 

.95 

.62  .5 

.325 

.25 

.11 

2 

73  7 5111 

DCL  120  G.  TANK  MUD  A ESTIMATE 

0.  .06 

.1 

.15 

.2  .25 

.3 

1 

0. 

2 

30. 

-.*2  -.35* 

-.288 

-.223 

-.1356  -.100 

-.05 

3 

60. 

-.*05  -.3** 

-.26* 

-.223 

— • 15h  — .1 3 A 

-.089 

* 

•60. 

-.*  -«3*1 

-.262 

-.223 

-.175  -.167 

-.1* 

5 

98. 

-.*  -.3*1 

-.26? 

-.223 

-.175  -.167 

-.1* 

6 

7*3*01111 

STABILIZER 

vs  time  fdh*38 

0.  1. 

1.26 

1.6 

1.75  2. 

2.25 

3* 

«. 

1 

*.*  6.5 

6.5 

7. 

7.3  7. 

6.5 

6.5 

6.1 

2 

7.  7.06 

7.2 

7.* 

7,6  7.75 

9. 

9.4 

10. 

3 

6 . 6.5 

5. 

5. 

6.5  6. 

5.5 

*.S 

7. 

* 

10.25  10.5 

10.75 

11. 

11.6  U.75 

12. 

12.75 

13. 

5 

5.6  7. 

6.7 

7.1 

7.  7.5 

T.7 

6.2 

6.2 

6 

1*.  15. 

If  • 

17. 

10.  18.25 

20. 

7 

6.5  T. 

6.7 

5.7  5. 

5. 

8 

751301111 

STIC*  VS  STABILIZER  gearing 

-10.  -5. 

—A. 

“*. 

-2.  -.5 

0. 

2. 

*. 

1 

“7.5  -*>•* 

-5.55 

-A. 35 

-3.1  -2.05 

-1.7 

-.5 

• b 

2 

*.  0. 

10. 

11.3 

3 

1.6  2.5 

3.3 

3.7 

* 

760506111 

V*  MF AN  VS$*20  KNOT  RStS»0 

Z-U.ftt 

U.*H 

0.  37. 

90. 

126. 

250. 

1 

•1 6.75 

12.702  17. *1* 

21.570 

23.11 

25.38 

2 

0. 

16.369  17.306 

21.199 

23.39 

25.23 

3 

1M.75 

I*. 32*  1*.  102 

23.176 

25.23 

23.69 

« 

5*. 

27.622  27. *33 

30.6? 

31. *9 

30. *02 

5 

*.110 


NAOC-77029-30 


in*. 

2<t. ion 

20.0* 

31.1 

30.9* 

30.99 

770909111 

VX9AR 

VSSOZO 

PSlSoO  2*29 

29. 

n. 

37. 

90. 

129. 

290. 

-IA.7S 

23. *7 

2*. 11 

29.7** 

26.71 

28.439 

0. 

19.729 

IV. 932 

23.777 

29.29 

29.09 

1«. 79 

21.278 

21.9*9 

29.V09 

26.29 

29.11 

9*. 

27.3-12 

2*. 0*7 

29.91 

30.01 

29.  VS 

19*. 

30.** 

30. *4 

30.** 

30.19 

30.03 

7*0909111 

VXOAn  VSSoZO  OSIoO  2a*9.9 

*«.M 

9. 

37. 

90. 

129. 

290. 

-m.79 

27.9* 

2V.32 

29.29 

29.81 

29.0 

0. 

2*.* 

23.99 

29.02 

26.21 

29.6* 

m.79 

27.13 

10.39 

29.29 

29.91 

22.209 

5*. 

30.2* 

29.99 

29.99 

30.11 

20.  V* 

in*. 

29.9  V 

2V.77 

30.119 

30.11 

29.69 

7V09091 1 1 

VZOAft 

VXS>20 

KNOTS  PS1M.  Z*m 

u.&n 

n. 

37. 

90. 

129. 

290. 

-in. 79 

-1.02*  -1.3* 

-.999 

-.92* 

-.7*9 

0. 

•1.22* 

-.9910 

.219* 

-.099* 

•1.33 

m.79 

1.313* 

1.21*2 

1.0*3 

1.9*9 

.333 

»*. 

1.7*2 

1.0173 

1.193 

2.17 

l.**7 

in*. 

.17* 

.1*09 

-.093 

-.1912 

-.*4239 

*00909111 

VTHA9 

V$$o20 

P91>0  2*29 

29. 

0. 

37. 

90. 

129. 

290. 

-m.7» 

-2.002 

-1.701 

-1 .60* 

•1.929 

-.*03 

0. 

-.7 

-1.02* 

.3097 

1.19* 

.11*  - 

m.79 

1.999V 

1.317 

1.903* 

1.2*7 

.0797 

5*. 

• 499 IV 

.00*0 

.921 

2.039 

1. 

10*. 

.2 

.19 

.*73* 

1.307 

.940* 

010909111 

VYftAft 

VSSs20 

*90*0  2*99.9 

**.sa 

0. 

37. 

90. 

129. 

290. 

-m.79 

-1.2212  -1.912  -1.9*0  -1.919  -.737 

0. 

2.02* 

.331* 

.*099 

.209 

.37* 

m.79 

1.9*0 

0.723* 

.1**9 

-.1 

1.301 

9*. 

-.29* 

1.0119 

-1.224 

-.1*29 

-.299 

in*. 

-.*30* 

.0144 

•1.974 

-.93* 

-.*49 

*20909111 

V29*H 

VSS*20 

*41*0  2*19*99 

1*.90 

4. 

37. 

90. 

124. 

240. 

-m.79 

-1.2 

— 7|*V 

—1 . 7** 

-• J3V9 

.7292 

0. 

-3.1*2 

•1.009 

• 1.21 

•1.018 

.24412 

m.79 

-.1*9* 

.0917* 

1.9*1 

1.19V 

I.V989 

9*. 

1.240* 

1.14V 

.2*79 

-.00* 

1.3 

10*. 

.2201 

.2121* 

.132 

.403* 

.77* 

*30909111 

VZMfl  VS4«2V  PS mO  2*29 

29. 

n. 

37. 

90. 

124. 

240. 

-m.79 

-.9*12 

-.*79 

-.969 

.1313 

.4974 

0. 

-1.03 

— *37 

.2*2  9 

-.222 

.71*9 

m.79 

-.39** 

-.0*4* 

-.1*12 

•1.1*9 

1.091 

9*. 

,4971 

.44*0 

-.133 

.399 

.193 

10*. 

4. 

0. 

.01219 

-.0703 

.933 

9*0904111 

VZPA9  VSSoZO  PS  mo  Zo*« 

44.48 

0. 

37. 

VO. 

124. 

290. 

• m.79 

-.9109 

-.am 

-.120* 

.9024 

1.011 

0. 

1.4 

1.907 

1.344 

1.899 

1.947 

m.79 

.4397 

-0.792 

.9027 

1.249 

-2.123 

A- 111 
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7.640  1.30? 

3.044 

1.092 

7.1746 

5 

lot. 

7.?07  7.064 

1.65)4 

7.1V1 

2.1756 

6 

050505111 

SIQX  VSS-70  OSJoO  2*14.55 

u.&« 

0.  37. 

40. 

175. 

250. 

1 

-16.75 

6.400  5.5150 

4.719 

4.549 

3.5*33 

2 

0. 

4.533*  3.005 

4.604 

4.04 

2,  v»3 

3 

lfi.75 

3.09*  *.3037 

4.757 

3.966 

3.056 

* 

S*. 

1.37M7  1.3053 

. V436 

.6644 

1.16 

5 

i C*  . 

.74*5  .7669 

.477 

• 3o*V 

.7V4H 

6 

O605051 1 1 

S16X 

VSS«*0  S51*6  2*75. 

74. 

0.  37. 

90. 

125. 

250. 

1 

-1A.75 

*.0513  *.774 

3.706 

3.52V 

7.663 

2 

0. 

3.070  3.6? 

4.46 

2.55 

2.409 

3 

1ft. 75 

4.33V  3.436 

4.75 

3.95* 

2.703 

4 

St, 

1.56  1.670 

1.395 

.9143 

.7* 

5 

lo*. 

1.7  1.? 

.9914 

.6*214 

• 3V*9 

6 

O70505111 

S10X 

VSS*20 

f»Sl*0  2*66 

tt.M 

0.  37. 

90. 

175. 

250. 

1 

-1«.75 

7.77V  3.146 

l.v* 

1.6 

1.57 

2 

0. 

3.17  7.004 

7.757 

4.722 

■ 2.53 

3 

1 ft.  75 

3.703  fr  .7035 

3.5V5 

3.411 

6.615 

4 

S4. 

1.055  1.10V 

1.355 

1.352 

1.509 

5 

104. 

.*455  .*077 

.7777 

.367 

.515 

6 

000505111 

S 1 6V  VSS-70  t»SI«0  2614*65 

14.5b 

0.  37. 

40. 

175. 

250. 

1 

-lit. 75 

*.*«0V  4.7153 

3.V140 

3.72 

3.02« 

2 

0. 

*.3300  *.703V 

4.4203 

4.45 

3.779 

3 

1ft. 75  ' 

'3.36*7  7.631 

3.1035 

3.47 

7.451* 

4 

54. 

1 .*7*0  l.«06 

1.1226 

.633 

1.33) 

5 

104. 

.*1315  .*135 

.701 

.7366 

• ?V*H 

6 

0V05051U 

STAY  VS5*20  P5I«o  2a2S 

<S. 

0 . 37  . 

90. 

175. 

250. 

1 

-10.75 

3.511  3.100 

3.79V 

3.727 

2.5)97 

7 

0. 

3.006  3.V15 

4.075 

3.556 

2.567 

3 

10.75 

3.75*  3.77? 

3.1*15 

3.777 

2 • 5V 1 6 

4 

5*. 

1.31V3  1 .335V 1.7*1 

1.256 

• 7V09 

5 

104. 

.*13  .413 

1.469 

1.177* 

.3V29 

6 

40550511) 

51Ay  l 

lfS5*20 

AS1*0  2*66 

4*.  50 

0 . 37  • 

90. 

125. 

250. 

1 

-10.75 

4.131  7.766 

2.674 

7.416 

7.27 

7 

0. 

*.*•*  3.5733  3.36 

3.152 

7.526 

3 

10.75 

3.36  6.076 

3.06 

3.405 

5. *57 

* 

54. 

1.745  1.530V 

1.V79 

1.601 

7.107 

5 

104. 

.0565  .7*34 

1.259 

.563 

.7329 

6 

410505)11 

5107 

VSS**0  SI *0  2*16 

|4,5o 

0.  37. 

90. 

175. 

250. 

1 

-|o.75 

4.10V  *.355 

4.194 

3.471 

3. 1*V 

2 

0. 

3.47  3.143 

3.376 

3.156 

2.7573 

3 

10.75 

3.507  3.1mm 

3.5V57 

2.546 

2.377 

4 

54. 

1,675  1.516 

1.151 

1.056 

1.5*5* 

5 

104. 

,4.361V  .36 

.63V 

.555 

.417s 

6 

45050611) 

5167  VSS*20  t*SI*0  2*25 

*5. 

0 . 37. 

VO. 

175. 

2S0. 

1 

-10.75 

3,  3.756 

3.1436 

7.756 

2.566 

2 

«. 

3.037  7.066 

3.356 
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TABLE  NO  4 


6.00  >12*00  >6.00  >4.00  0.00  4.00  6.00 
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TABLE  NO  4 


'Wt 


6 


02*1  on  00*1  00*0  08*0 
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TABLE  NO  .8 


RCS  DUCT  PRESSURE 


DUCT 

PRESSURE 
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TABLE  NO  *9 


09M  0*M  OZ7I  00*1  OB*'o  09*'0  Of'o  OS*'o  OoTP 
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TABLE  NO  .10 


rr — m 


1UDC-77024-30 

TABLE  NO  .11 

I 


r 
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TABLE  NO  .12 
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TABLE  NO  .13 


2,.  00  2..  40  2.80  3.20  3.60 
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TABLE  N0.14 


ENGINE  TIME  CONSTANT  VS.  RPM 


TIME 

CONSTANT 
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<N_ 

cnl 


TABLE  NO  .15 

THE  FOLLOW I NO  VALUES  OF  Y MERE 
USED  TO  FLOT  THE  CURVES 

MACH  NUMBER 

INCREASE  IN  GROSS  a 0.00000 

THRUST  VS.  FORWARD  • O.iOOOO 

0.20000 

0.90000 


«10f 

BO. 00  100.00  120.00  140.00  160.00 


NADC-77024-30 


TABLE  NO  .16 

THE  FOLLOW 1 NO  VALUES  OF  Y HERE 
USED  TO  rLOT  THE  CURVES 

FRONT  NOZZLE  ■ 0.0000 

STATIC  THRUST  • 9*0000 

a 18.0000 


RCS  BLEED 
LB./SEC. 


THRUST 


00*08  00* 0L  00*08  00* OS  00*  Ot 
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TABLE  NO  .18 

THE  FOLLOWING  VALUES  OF  Y HERE 


U8E0 

TO  PLOT  THE 

CURVES 

■ 

0.00000 

• 

0.10000 

RAM 

DRAG 

VS.  RPM 

A 

0.20000 

AND 

MACH 

NO. 

♦ 

0.90000 

/ 
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TABLE  NO  .20 

THE  FOLLOWING  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 

a 0.0000 
o 10.0000 

CY  VS.  BETA,  20.0000 

60°  NOZZLE,  , ^ 

VJ/VO  - 5.4  I ALPHA  - DEG. 


AD-A073  567 
UNCLASSIFIED 


NAVAL  AIR  DEVELOPMENT  CENTER  WARMINSTER  PA  AIR  VEHICL— ETC  F/6  1/2 
^COMPUTER I ZED^VSTOL/SmALL  PLATFORM  LANOING  OTNAMICS  INVESTIGAT— ETC  (U) 
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TABLE  NO  .22 

THE  FOLLOWING  VALUES  OF  Y HERE 


USED  TO  PLOT  THE  CURVES 

ALPHA 

CY  VS.  BETA, 

o 0.0000 

60°  NOZZLES 

• S.0000 

VJ/VO  = 5.4 

A 10.0000 

NADC-77024-30 


TABLE  NO  .27 

THE  FOLLOWING  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 
ALPHA  - DEG. 

ROLLING  MOMENT  COEFFICIENT  O -10.0000 

VS.  ALPHA,  BETA,  60°  NOZZLES,  • -5.0000 

.9 


0.30  -0.20  -0.10  0.00  0.10  0.20  0.30  0.40  0.50 
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TABLE 


YAWING  MOMENT  VS. 

BETA.  ALPHA,  0°  NOZZLES. 
VJ/VO  - 0 


NO  .29 

THE  FOLLOWING  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 
ALPHA 
a 0.0000 
• 4.0000 
A 8.0000 
A 12.0000 
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CN  VS.  ALPHA.  BETA. 
60°  NOZZLES,  VJ/VO  = 


TABLE  NO  .30 


THE  FOLLOW I NO  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 


5.4 


ALPHA  DEG. 

o >10.0000 

o >5*0000 

A 0.0000 

♦ 5.0000 
x 10.0000 
+ 15.0000 

* 20.0000 
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TflBLE  NO  .32 


CN  VS.  ALPHA,  BETA,  75° 
NOZZLES,  VJ/VO  -11.9 


THE  FOLLOWING  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 

ALPHA  DEG. 

q >10.0000 

e >5.0000 

A 0.0000 

+ 5.0000 

x 10.0000  * 

4 15.0000 

« 20.0000 
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CN  VS.  ALPHA,  BETA, 
90°  NOZZLES,  VJ/VO 


TABLE  NO  *33 


11.9 


THE  FDLLOHTMA  VRLUES  OF  Y HERE 
U8ED  TO  FLOT  THE  CURVES 
ALPHA  DEG. 

a -10.0000 
a -5.0000 
*,  0.0000 
4 5.0000 
K 10.0000  * 

4 15.0000 

4 E0.0000 
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TABLE  NO  34 


120.00  too. 00 
v - JfMOTS 
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TABLE  NO  .39 

THE  FOLLOWING  VALUES  OF  Y WERE 
USED  TO  PLOT  THE  CURVES 
DH  - DEG.  ’ 

B 6.0000 

CL  VS.  ALPHA.  DH.  VJ/VO  - 54  • 12*0000 

45°  NOZZLES 
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TABLE  NO  «42 

THE  FOLLOHINO  VALUES  OF  Y HERE 
U8ED  TO  FLOT  THE  CURVES 

DH  - DEG. 


CL  VS.  ALPHA,  DH  VJ/VO  - 5.4,  ^ 
90°  NOZZLES  1 


B 6.0000 
• IZ.0000 
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TABLE  NO  .46 


THE  FOLLOHINO  VALUES  OF  Y HERE 
USED  TO  PLOT  THE  CURVES 


CD  VS.  ALPHA,  DH,  VJ/VO  = 5.4,  ! 
0°  NOZZLES 


DH  - DEG. 

B 0.00000 
B 6.00000 


ALPHA  - DEG. 
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TABLE  NO  .47 

CD  VS.  ALPHA,  VJ/VO  - 5.4, 
30°  NOZZLE 
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CD  VS.  ALPHA.  DH,  VJ/VO 
60°  NOZZLE 


TABLE  NO  49 

THE  FOLLOW I NO  VALUES  OF  Y 
USED  TO  FLOT  THE  CURVES 
DH  - DEG. 
a 6.0000 

a 12.0000 


HERE 


5.4. 
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TABLE  NO  50 


THE  FOLLOW I HO  VRLUES  OF  T HERE 
USED  TO  PLOT  THE  CURVES 
DH  -DEG. 

B 6.0000 

e IP. 0000 


CD  VS.  ALPHA,  DH,  VJ/VO  - 5.4, 
75°  NOZZLE 


0.20  0.24  0.28  0.32  0.36  0.40 


0.12  0.16  0.20  0-24  0.28  0.32  0.36  0.40 
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» 

’I 


TABLE  NO  .52 

THE  FOLLOW I NO  VALUES  OF  Y 
USEO  TO  PLOT  THE  CURVES 
DH  - DEG. 

CD  VS.  ALPHA,  DH,  VJ/VO  - 11.9,  6.0000 

45°  NOZZLE  12.0000 


WERE 


ALPHA  - DEG. 


-0.40  -0 .35  -0.30*  -0.25  -0.20  -0.15  -0 . 10  -0.05  0-00 


-0.20  -0.16  -0.12  -0.08  -0-04  0.00  0-04  0.08 


CM 


CM  VS.  ALPHA,  DH,  30°  NOZZLE, 


q 6-0000 


-0.06  -0.04  -0.02  0.00  0.02 


CM  VS.  ALPHA, 
45°  NOZZLE, 
VJ/VO  - 5.4 
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TABLE  NO  -57 

THE  FOLLOW I NO  VALUES  OF  Y MERE 
USED  TO  PLOT  THE  CURVES 
DH  - OEG. 

o 6.0000 
a 12.0000 


10.00 


20.00  30.00 


40.00 


ALPHA  - OEG. 


KH 


-0.08  -0.04  0.00  0.04  0.08  0.12  0.16  0.20 


CM  VS.  ALPHA.  DH, 
60°  NOZZLE. 

VJ/VO  - 5.4 
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TABLE  NO  .58 

THE  FOLLOWING  VALUES  OF  Y WERE 
USED  TO  PLOT  THE  CURVES 
DH  - DEG. 

q 6*0000 

a 12.0000 


?-1 

'-10.00 


0.00 


10.00 


20.00 


30.00 


40.00 


ALPHA  DEG. 


-0.08  -0.04  0.00  0.04  0.08  0.12  0.16  0.20 
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TABLE  NO  .59 

THE  FOLLOWING  VALUES  OF  Y MERE 
USED  TO  PLOT  THE  CURVES 


CM  VS.  ALPHA.  OH.  75°  NOZZLE. 
VJ/VO  - 5.4 


DH  - DEG. 
a 6.0,000 
o 12.0000 


ALPHA  - DEG. 
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TABLE 


CM  VS.  ALPHA,  DH,  90°  NOZZLE, 
VJ/VO  = 5.4 


NO-  60 

THE  FOLLOWING  VALUES  OF  Y 
USEO  TO  PLOT  THE  CURVES 
DH  - DEG. 

q 6 • 0000 

© 12.0000 


WERE 


Too  10.00  20.00  30. 00  40.00 

ALPHA  - DEG. 


-0.08  -0.06  -0.04  -0.02  0.00  0.02  0.04  0.06  0.08 
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TABLE  NO  .61 

THE  FOLLOW INO  VALUES  OF  Y WERE 
USED  TO  PLOT  THE  CURVES 


ALPHA  - OEG. 
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TABLE  NO. 62 

THE  FOLLOWING  VALUES  OF  Y WER 
USED  TO  PLOT  THE  CURVES 
DH  - DEG. 

o 6.0000 
c 12.0000 


CM  VS.  ALPHA,  DH 
60°  NOZZLE,  VJ/VO*  = 11.9 
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TABLE  NO -63 

THE  FOLLOW  I NO  VALUES  OF  Y WERE 
USED  TO  PLOT  THE  CURVES 
DH  - OEG. 

CM  VS.  ALPHA,  OH,  o 6*0000 

75°  NOZZLE,  VJ/VO  - 11.9  ® 12.0000 


10.00  20.00  30.00  40.00 

ALPHA  - OEG. 


B-65 


> 


'-30.00 

_ 

-20.00 

-10.00  0.00  10.00 
RANGE  - FEE T *10  1 

20.00 

B-71 
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TABLE  NO  .71 
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TABLE  NO  .73 

THE  FOLLOWING  VALUES  OF  Y MERE 
USEO  TO  PLOT  THE  CURVES 
9 J - DEG. 

q 0>0000 

© 30.0000 
a 50.0000 

LIFT  COEFFICIENT  LOSS  DUE  TO  INBOARD  + 60-0000 

120  GALLON  TANKS  VS.  NOZZLE  ANGLE  AND  x 98-0000 

FORWARD  SPEED  RATIO  | * 


B ■ 1 B B - B B O 


~r 


0.10 


T 


0.20  0.30 

1/(VJ/V0) 


0.40 


0.50 


7.00  7.50  8.00  8.50 
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‘TABLE  NO  .74 


* 


TABILIZER 


FLIGHT  MEASURED  STABILIZER  VS.  TIME 
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USER’S  GUIDE  TO  THE  VSTOL  MODEL  PROGRAM 
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APPENDIX  C 

USER'S  GUIDE  TO  THE  VSTOL  MODEL  PROGRAM 


The  following  description  explains  the  procedures  for  loading  data 
required  for  the  simulation.  The  principal  program  variables  reside  In 
labeled  common  blocks  to  facilitate  access  between  various  subroutines. 
Initial  values  of  common  variables  may  be  defined  by  using  the  block 
data  subroutine.  This  method  is  used  tc  define  basic  or  reference  values 
of  program  variables.  In  addition  local  variables  may  be  defined  by 
using  data  statements  In  individual  subroutines.  Figure  22  shows  the 
subroutine  arrangement. 

Common  variables  may  be  changed  from  run  to  run  by  specifying 
appropriate  data  cards  located  after  the  control  card  and  program  deck. 

The  common  variables  are  divided  into  seven  main  common  groups. 

These  are  as  follows: 


A (1-500) 
IAU-200) 

B( 1-200) 
IB<l-50) 
GA(l-lOO) 
SCALE (1-28) 
NPLOT(l-U) 


Basic  real  program  variables 
Basic  Integer  program  variables 
User  floating  point  variables 
User  fixed  point  variables 
User  control  system  gain  parameters 
Plotting  program  scale  values 
Plot  selection  switch  values 


The  format  for  data  input  is  specified  below: 


CARD  MO.  COLUWI  FORMAT 

1 1-2  (12) 

2 2-5  (IX,  A4) 

3-11  1 A1 

2 II 


QUANTITY 

NRUN  - number  of  runs 
1 ■ single  run 
>1  * multiple  runs 

0 ■ terminate  program 

Name  - input  option  switch  ■ data 
for  common  variable  input 

Blank 

Common  variable  type  indicator 

1 ■ A common 

2 ■ IA  common 

3 ■ GA  common 

4 ■ Scale  common 

5 - NPLOT(I) 

6 - CHTSP 

7 ■ B common 

8 * IB  common 
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CARD  NO. 

COLUMN 

FORMAT 

QUANTITY 

3-11 

8-10 

13 

Common  location 
- 1**  500 

3-11 

11-20 

G10.0 

Value  of  cannon  variable 

3-11 

21-80 

15A4 

Variable  deacrlption  title 

12 

1 

A1 

/ - A alaah  in  column  1 indicates  the  end  of 
common  input  data 

13 

1-5 

1X,A4 

Name  - UDAT,  indicates  table  data  input 

14-32 

The  format  for  loading  table  lookup  data  la  deecrlbed  aeparately 
in  Appendix  D.  A blank  card  at  the  and  of  the  laat  aat  of  data 
cauaea  the  computer  to  atop  reading  table  data. 

33 

2-5 

A4 

Name  ■ OPRN,  indicates  the  operation  of  the 
eimulatlon  run. 

33 

11-19 

G9.0 

RTIME  - specifies  simulation  run  time  in 
seconds 

34 

1-6 

312 

I1READ,  I2READ,  I SCALE 

I1SEAD  - 0 - continue 

I1READ  - 1 - read  IPLOT(I) 

I 2 READ  ■ 0 - continue 

I2READ  - 1 - read  IPRNT(I) 

ISCALE  - 0 - use  SCALE (X)  values  for 
data  plots 

ISCALE  ■ 1 - calculate  plot  scales 

35-36 

1-80 

8110 

IFLOT(I),  I - 1,  14  or 

IPRNT(I) , I - 1,  11 

specifies  print  and  plot  variables 

37 

1-2 

12 

NKDN  • specify  number  of  repetitions  for 
next  run,  terminate  program  if  NRUN  • 0. 

38 

2-5 

A4 

Name  - END  terminates  program 

PUNCH  CAM)  TRANSCRIPT  1M-AADC- •.>/*/ it  (*f».  *-«)£. -,£■ 


BATMOS  BALFBET  BVELOC  BTRANS  BATMOS 
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APPENDIX  D 

USER'S  GUIDE  FOR  LINEAR  TABLE  DATA  LOOKUP  ROUTINE 


Three  FORTRAN  subroutines,  TA3RD,  LOOKUP,  end  TABl  provide  s cspsblllty 
for  linear  Interpolation  and  extrapolation  of  table  data  expressed  as  a 
function  of  as  many  as  three  independent  variables. 

For  srguments  outside  the  range  of  the  Input  data,  three  options  are 
available: 

(1)  stop  lookup  procedure  and  return  error  code  with  function  value 
equal  to  zero 

(2)  set  function  value  to  data  value  corresponding  to  the  Independent 
variable  value  within  the  input  data  range  which  la  nearest  in 
value  to  the  desired  argument 

(3)  linearly  extrapolate  from  last  available  table  values  to  approximate 
function  value  at  desired  argument 

The  table  lookup  package  consists  of  one  FUNCTION  subprogram  and  two 
SUBROUTINE  subprograms.  Four  COMfON  blocks  are  required  in  the  calling 
program  to  provide  for  convenient  data  transfer.  The  procedures  for  involving 
the  proper  routines  and  initializing  the  COMiON  blocks  are  described  In  the 
following. 

COWON  Block  Initialization 

COWON /TABLE/NUMPTS (m)  - provides  storage  for  the  input  cable  data.  NUMPTS 
is  the  array  where  the  data  are  stored  and  must  be  dimensioned  large 
enough  to  hold  all  tables.  An  approximation  to  this  dimension  may  be 
made  as  follows: 

N 

■ - «xt  + D Of.  + l)  + 3) 

i-1  1 1 

where  N is  the  total  number  of  tables 

X^  Is  the  number  of  first  argument  values  In  table  1 

is  the  number  of  second  argument  values  in  table  1 

Note:  a separata  table  is  required  for  each  value  of  z (third  argument) 
as  will  be  explained  later. 

CGMION/XTRAP/METH,  IACT  (3,  n)  - contains  Information  concerning  type  of 
search  to  be  used  and  action  to  be  taken  when  argument  Is  outside  the 
range  of  the  cable.  METH  must  be  initialized  in  the  calling  program. 


D-3 
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HETH  - 1:  standard  order  search  each  time  lookup  is  required 

METH  - 2:  memory  search;  i.e.,  search  begins  at  point  in  table 
where  last  search  was  completed 

METH  - 3:  binary  search  (can  be  more  efficient) 

The  second  dimension  of  IACT,  n,  must  be  greater  than  or  equal  to  the 
number  of  tables  being  used. 

CWttON/FIND/lPREV  (3,  n)  - stores  array  data  used  during  Interpolation. 
Here  again,  n is  greater  than  or  equal  to  the  number  of  tables  being 
used. 


COMMON/TABOUT/NTBL,  ISEQ  - provides  information  in  the  event  of  a data  error. 
NTBL  is  the  number  of  the  table  currently  being  read. 

ISEQ  is  the  sequence  number  of  Che  card  being  read. 

Data  Input 

The  input  data  is  read  from  punched  cards  which  have  been  prepared  using 
the  format  of  Figure  23.  Nomenclature  pertaining  to  Figure  23  and  certain 
table  data  restrictions  are  given  below. 

Nomenclature  and  Restrictions 

K table  number  (positive  integer  starting  at  1 and  increasing  by  1 

for  each  successive  table) 

Ll  number  of  tabular  values  of  the  first  independent  variable  (x) 

L2  number  of  tabular  values  of  the  second  independent  variable  (y) 

(-  1 for  function  of  one  variable) 


Seq.  No.  sequence  number  of  card  within  a table  beginning  with  0 for  the 
first  card,  1 for  the  second,  etc. 

z value  of  the  third  Independent  variable  (if  used).  A separate 

table  is  necessary  for  each  value  of  z. 

II  integer  signifying  the  type  of  action  desired  if  argument  #l(x) 

goes  off  table  during  interpolation 
• 0:  stop  lookup  procedure  and  return  error  code 

- 1:  hold  end  value  of  argument  #1 

- 2:  linearly  extrapolate  on  argument  #1 


12 


same  as  above  but  for  argument  #2 
same  as  above  but  for  argument  #3 


D-4 
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ADDITIONAL  X VALUES  UP  TO  AND  INCLUDING  XL1  ARE  HANDLED  SIMILARLY 
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f(i,  j)  function  value  at  x^,  yf  and  z 
Table  data  are  restricted  by  the  following. 

(1)  Tabular  values  of  the  Independent  variables  must  be  In  algebraically 
increasing  order. 

(2)  All  table  values  saist: 

(a)  be  single  precision  numbers  less  than  99999E9. 

(b)  have  a maximum  of  7 significant  figures  if  positive;  6 if  negative. 

(3)  There  is  a maximum  of  99  cards  per  table. 

(4)  A blank  card  follows  the  last  table. 

It  can  be  seen  that  if  the  data  are  functionally  dependent  on  a third  argument, 
a separate  data  table  is  necessary  for  each  input  value  of  the  third  argument. 

It  is  imperative  that  a blank  card  follow  the  last  card  of  the  last  table 
being  used  as  input. 


Table  data  are  read  into  storage  by  calling  the  routine  TABRD  or  its 
optional  entry  point  TABWRT.  TABWRT  provides  the  additional  feature  of 
printing  the  input  data  onto  the  output  file.  Calling  statements  for  both 
options  are  as  follows. 

CALL  TABRD  (Ml,  NMAX,  MG) 
or 

CALL  TABWRT  (Ml,  NMAX,  NG) 

where  N1  is  first  table  to  be  read 

NMAX  is  maximum  number  of  tables  to  be  read 
NG  is  a return  error  flag  which  is  non-zero  if  an  error  was 
encountered  while  reading  the  data. 

The  interpolation  routine,  LOOKUP,  is  involved  by  the  function  subprogram 
TAB1.  Use  of  TABl  is  defined  as  follows. 

y » TABl  (Xj,  x2,  x3,  n1#  An) 


where  x,,  x2,  x_  are  values  of  the  Independent  variables.  If  fewer 
than  three  Independent  variables  are  required,  the 
remaining  x^  should  be  set  to  zero. 
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n is  the  number  of  the  table  required  for  the  lookup.  If  a 
three  argument  Interpolation  Is  being  performed,  n la  the 
mmfeer  of  the  first  required  table 

Jn  Is  the  total  number  of  tables  required  in  the  case  of  a 
triple  argument  lookup 

y Is  the  resulting  function  value 

If  one  or  more  of  the  arguments  is  outside  the  range  of  the  table  data,  the 
previously  Indicated  action  Is  taken  and  an  informative  message  is  printed 
on  the  output  file. 


D-7 


Y 


NADC-77024-30 


This  page  intentionally  left  blank. 


NADC-7 7024-30 


APPENDIX  E 


COmOW  VARIABLE  DEFINITIONS 


NADC-77024-30 


NADC-77024-30 


APPENDIX  E 

COMMON  VARIABLE  DEFINITIONS 


A Common 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

1 

PHI 

deg 

aircraft  bank  angle 

2 

THET 

deg 

aircraft  pitch  angle 

3 

PSI 

deg 

aircraft  heading  from  north 

4 

PHIR 

red 

aircraft  bank  angle 

5 

THETR 

red 

aircraft  pitch  angle 

6 

PSIR 

rad 

aircraft  heading 

7 

PHID 

rad /sec 

rate  of  change  of  bank 

8 

THED 

rad/sec 

rate  of  change  of  pitch 

9 

PSID 

rad/aec 

rate  of  change  of  heading 

10 

SPHI 

- 

alne  of  PHIR 

11 

CPHI 

m 

cosine  of  PHIR 

12 

STHI 

m 

sine  of  THETR 

13 

CTHT 

m 

cosine  of  THETR 

14 

SPSI 

- 

sine  of  PSIR 

15 

CPSI 

m 

cosine  of  PSIR 

16 

Til 

- 

euler  transformation 

17 

T21 

m 

matrix  elements 

18 

T31 

- 

matrix  elements 

19 

T12 

- 

matrix  elements 

20 

T22 

m 

matrix  elements 

21 

T32 

m 

matrix  elements 

22 

T13 

- 

matrix  elements 

23 

T23 

m 

matrix  elements 

24 

T33 

• 

euler  transform  coefficient 

25 

ALFA 

deg 

slrcraft  angle  of  attack 

26 

BETA 

deg 

aircraft  sideslip  angle 

27 

ALFAR 

red 

aircraft  angle  of  attack 

28 

BEXAR 

rad 

aircraft  sideslip  angle 

29 

ALFD 

rad/aec 

rate  of  change  of  ALFAR 

30 

BETD 

rad/aec 

rate  of  change  of  BEXAR 

31 

SALPH 

m 

sine  of  ALFAR 

32 

CALPH 

m 

cosine  of  ALFAR 

. 33 

SBETA 

m 

sine  of  BEXAR 

34 

CBEXA 

m 

cosine  of  BEXAR 

35 

GAMV 

red 

vertical  flight  path  angle 

36 

GAMH 

red 

horizontal  flight  path  angle 

37 

PB 

red/aec 

aircraft  roll  rate,  body  axes 

38 

QB 

rad/aec 

aircraft  pitch  rate,  body  axes 

39 

RB 

rad/aec 

aircraft  yaw  rate,  body  axes 

40 

PL 

rad/aec 

inertial  roll  rate  due  to  earth  curvature 

41 

QL 

rad/aec 

inertial  pitch  rate  due  to  earth  curvature 

42 

RL 

red/aec 

inertial  yew  rate  due  to  earth  curvature 

I 
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A Common  (Cont'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

43 

PLB 

rad/sec 

body  axis  roll  rate  due  to  curvature 

44 

QLB 

rad/ sec 

body  axis  pitch  rate  due  to  curvature 

45 

RLB 

rad /sec 

body  axis  yaw  rate  due  to  curvature 

46 

PT 

rad/sec 

total  roll  rate 

47 

QT 

rad/sec 

total  pitch  rate 

48 

RT 

rad/sec 

total  yaw  rate 

49 

PBWN 

rad /sec 

total  roll  rate  URT  wind 

50 

QBWN 

rad /sec 

pitch  rate  URT  wind 

51 

RBWN 

rad /sec 

yaw  rate  URT  wind 

52 

PTURB 

rad/sec 

apparent  roll  rate  due  to  turbulence 

53 

QTURB 

rad/sec 

apparent  pitch  rate  due  to  turbulence 

54 

RTURB 

rad /sec 

apparent  yaw  rate  due  to  turbulence 

55 

PBD 

rad/sec^ 

roll  acceleration 

56 

QBD 

rad/sec2 

pitch  acceleration 

57 

RBD 

rad/sec2 

yaw  acceleration 

58 

UB 

ft/sec 

body  axis  - x component  of  airspeed 

59 

VB 

ft/sec 

body  axis  - y component  of  airspeed 

60 

UB 

ft/sec 

body  axis  - z component  of  airspeed 

61 

UTURB 

ft/sec 

x - body  axis  turbulence 

62 

VTURB 

ft/sec 

y - body  axis  turbulence 

63 

UTURB 

ft/sec 

z - body  axis  turbulence 

64 

VN 

ft/sec 

aircraft  north  inertial  velocity 

65 

VE 

ft/sec 

aircraft  east  Inertial  velocity 

66 

VD 

ft/sec 

aircraft  inertial  down  velocity 

67 

VEE 

ft/sec 

aircraft  east  velocity  relative  to  ground 

68 

VT 

ft/sec 

aircraft  total  velocity 

69 

VG 

ft/sec 

ground  velocity 

70 

VRU 

ft/sec 

airspeed 

71 

RMBCH 

XM4CH 

m 

Mach  number 

72 

VNR 

ft/sec 

relative  wind  north 

73 

VER 

ft/sec 

relative  wind  east 

74 

VDR 

ft/sec 

relative  wind  down 

75 

VEQ 

kts 

equivalent  airspeed 

76 

VNU 

ft/sec 

north  wind  component 

77 

VEU 

ft/sec 

east  wind  component 

78 

VDW 

ft/sec 

vertical  wind  component 

79 

• 

• 

- 

80 

ALTD 

ft/sec 

aircraft  slnk/cllmb  rate,  + up 

81 

XLOND 

rad /sec 

rate  of  change  of  aircraft  longitude 

82 

XLATD 

rad /see 

rate  of  change  of  aircraft  latitude 

83 

ALT 

ft 

aircraft  altitude  above  aea  level 

84 

XLON 

rad 

aircraft  longitude 

85 

XLAT 

rad 

aircraft  latitude 

86 

SLAT 

• 

sine  of  latitude 

87 

CLAT 

- 

cosine  of  latitude 

E-4 
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A Common  (Cont'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

88 

VND 

£t/sec2 

aircraft  north  acceleration 

89 

VED 

ft /sec2 

aircraft  aaat  acceleration 

90 

VDD 

ft /sec2 

aircraft  vertical  acceleration 

91 

AX 

ft/sec2 

x - body  axla  acceleration  at  eg 

92 

AY 

ft/sec2 

y - body  axla  acceleration  at  eg 

93 

AZ 

ft/««C2 

z - body  axla  acceleration  at  eg 

94 

AXP 

ft/»*c‘ 

body  axla  x acceleration  at  pilot  station 

95 

AY? 

ft/.*c2 

body  axla  y acceleration  at  pilot  station 

96 

AZP 

ft/sec2 

body  axla  z acceleration  at  pilot  atatlon 

97 

G 

ft /sec2 

acceleration  of  gravity 

98 

• 

m 

- 

99 

m 

m 

m 

100 

m 

m 

m 

101 

VCAL 

kts 

calibrated  alr8peed 

102 

m 

-• 

- 

103 

XPR 

ft 

ahlp  axla  pilot  x position 

104 

YPR 

ft 

ship  axis  pilot  y position 

105 

HPR 

ft 

pilot  eye  altitude  above  sea  level 

106 

DNR 

ft 

relative  position  of  aircraft  eg  north 
of  reference 

107 

DER 

ft 

relative  position  of  aircraft  eg  east  of 

108 

n 

ft 

height  of  runway  above  center  of  earth 

109 

RTV 

ft 

height  of  aircraft  above  center  of  earth 

110 

COURSE 

rad 

ship  heading 

111 

XLATR 

rad 

latitude  of  reference  point 

112 

XLONR 

rad 

longitude  of  reference  point 

113 

CLATR 

m 

cosine  of  latitude 

114 

STHETR 

- 

sine  of  aircraft  attitude 

115 

CTHETR 

cosine  of  aircraft  attitude 

116 

X1XX 

alug-ft2 

aircraft  roll  Inertia  in  body  axes 

117 

X1YY 

alug-ft2 

aircraft  pitch  inertia 

118 

XZZZ 

alug-ft2 

aircraft  yaw  inertia 

119 

X1XZ 

alug-ft2 

aircraft  cross  Inertia 

120 

XMC(l) 

- 

inertial  coefficient 

121 

XMC(2) 

- 

inertial  coefficient 

122 

XMC(3) 

l/alug-ft2 

inertial  coefficient 

123  ■ 

XMC(4) 

1 /alug-ft2 

inertial  coefficient 

124 

XHC(5) 

- 

Inertial  coefficient 

125 

XMC(6) 

m 

inertial  coefficient 

126 

XMC(7) 

l/alug-ft2 

inertial  coefficient 

127 

XMC(8) 

m 

Inertial  coefficient 

128 

' XMC(9) 

m 

inertial  coefficient 

129 

XMC(IO) 

l/alug-ft2 

inertial  coefficient 

130 

XMASS 

alug 

aircraft  mass 

131 

CL 

m 

lift  coefficient 

132 

CO 

- 

drag  coefficient 

E-5 
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A Conmon  (Cont'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

133 

CX 

m 

aircraft  x axis  aero  force  coefficient 

134 

CY 

m 

y axis  aero  force  coefficient 

135 

CZ 

- 

z axis  aero  force  coefficient 

136 

FAX 

lb 

aero  x axis  force 

137 

FAY 

lb 

y axis  aero  force 

138 

FAZ 

lb 

z axis  aero  force 

139 

FEX 

lb 

x axis  engine  force 

140 

FEY 

lb 

y axis  engine  force 

141 

FEZ 

lb 

z axis  engine  force 

142 

FGX 

lb 

x axis  landing  gear  force 

143 

FGY 

lb 

y axis  landing  gear  force 

144 

FGZ 

lb 

z axis  landing  gear  force 

145 

FTX 

lb 

x axis  total  force 

146 

FTY 

lb 

y axis  total  force 

147 

FTZ 

lb 

z axis  total  force 

148 

FN 

lb 

total  aircraft  force  north 

149 

FE 

lb 

total  aircraft  force  east 

150 

FD 

lb 

total  aircraft  force  down 

151 

FG 

lb 

gravity  force 

152 

CLL 

- 

rolling  nonent  coefficient 

153 

CLM 

- 

pitching  nonent  coefficient 

154 

CLN 

- 

yawing  nonent  coefficient 

155 

XAL 

ft-lb 

aerodynanic  rolling  nonent 

156 

1AM 

ft-lb 

aerodynanlc  pitching  nonent 

157 

TAN 

ft-lb 

aerodynamic  yawing  nonent 

158 

TEL 

ft-lb 

engine  rolling  moment 

159 

TEM 

ft-lb 

engine  pitching  moment 

160 

TEN 

ft-lb 

engine  yawing  moment 

161 

TGL 

ft-lb 

landing  gear  rolling  moment 

162 

TCM 

ft-lb 

gear  pitching  moment 

163 

TGN 

ft-lb 

gear  yawing  moment 

164 

TTL 

ft-lb 

total  rolling  moment 

165 

TTM 

ft-lb 

total  pitching  moment 

166 

TTN 

ft-lb 

total  yawing  moment 

167 

DTI 

sec 

loopl  frame  time 

168 

DT2 

MC 

loop2  frame  time 

169 

DT3 

Sec 

loop3  frame  tine 

170 

HR 

ft 

runway  height  above  sea  level 

171 

• 

• 

172 

• 

• 

173 

m 

. 

174 

xcc 

ft 

aircraft  x location  in  ship  coordinates 

175 

YCC 

ft 

aircraft  y location 

176 

HCC 

ft 

aircraft  height  above  runway 

177 

HA  XT 

U 1 

aircraft  weight 

178 

QBAR 

lb/ft2 

dynamic  preaaure 

E-6 
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A Con 

ion  (Cont'd) 

NUMBER 

NAME 

COMPUTED 

DEFINITION 

UNITS 

179 

QBARC 

l$'2 

stagnation  - static  pressure 

180 

AREA 

wing  area 

181 

SEAN 

fc 

wing  span 

182 

CHORD 

ft  1 

mean  aerodynamic  chord 

183 

RHO 

•lug/ft3 

air  density 

184 

DXPA(l) 

ft 

nose  gear  x station 

185 

DXPA (2) 

ft 

main  gear  x station 

186 

DXPA (3) 

ft 

right  wing  gear  x station 

187 

DXPA  (4) 

ft 

left  wing  gear  x station 

188 

DXPA  (5) 

ft 

pilot  x station 

189 

DXPA (6) 

ft 

tail  x station 

190 

DXPA (7) 

ft 

ram  drag  x station 

191 

DXPA (8) 

ft 

front  nossle  x station 

192 

DXPA  (9) 

ft 

rear  nozsle  x location 

193 

DXPA (10) 

ft 

front  pitch  Jet  x station 

194 

DXPA (11) 

ft 

rear  pitch  jet  x station 

195 

DXPA  (12) 

ft 

yaw  jet  x station 

196 

DXPA (13) 

ft 

right  wing  jet  x station 

197 

DXPA (14) 

ft 

left  wing  jet  x station 

198 

DXCG 

ft 

eg  reference  x section 

199 

200 

VX 

ft/sec 

aircraft  x axis  inertial  velocity 

201 

VY 

ft/sec 

aircraft  y axis  inertial  velocity 

202 

203 

204 

205 

206 

207 

208 

209 

SOUND 

ft/sec 

speed  of  sound 

210 

DYPA(l) 

ft 

nose  gear  y station 

211 

DYPA (2) 

ft 

main  gear  y station 

212 

om  (3) 

ft 

right  wing  gear  y station 

213 

Dm  (4) 

ft 

left  wing  gear  y position 

214 

Dm  (5) 

ft 

pilot  y station 

215 

om  (6) 

ft 

tail  y station 

216 

om  (7) 

ft 

ram  drag  y station 

217 

om  (8) 

ft 

front  nosale  y station 

218 

om  (9) 

ft 

rear  nozzle  y location 

219 

om  (io) 

ft 

front  pitch  Jet  y station 

220 

om  (ii) 

ft 

rear  pitch  Jet  y station 

221 

om  (12) 

ft 

yaw  jet  y station 

222 

DYFA(13) 

ft 

right  wing  jet  y location 

223 

Dm  (14) 

ft 

left  wing  jet  y location 

224 

DYPA  (15) 

ft 

aircraft  lateral  eg  position 

E-7 
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A Cocoon  (Coat'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

225 

XP 

ft 

pilot  x position  WRT  eg 

226 

YP 

ft 

pilot  y position  WRT  eg 

227 

ZP 

ft 

pilot  z position  WRT  eg 

228 

• 

• 

• 

229 

VDIC 

ft/sec 

trim  vertical  velocity 

230 

PHI1C 

deg 

trim  bank  angle 

231 

THETIC 

deg 

trim  pitch  attitude 

232 

PSI1C 

deg 

trim  heeding  angle 

233 

GAMVIC 

deg 

initial  vertical  path  angle 

234 

GAMHIC 

deg 

horizontal  path  angle 

235 

PBIC 

red /sec 

initial  roll  rate 

236 

QBIC 

red/sec 

initial  pitch  rate 

237 

RB1C 

red /sec 

initial  yaw  rate 

238 

VEQIC 

kts 

trim  equivalent  airspeed 

239 

XIC 

ft 

initial  aircraft  x location 

240 

YIC 

ft 

initial  aircraft  y location 

241 

H1C 

ft 

initial  altitude 

242 

WAIT 1C 

lb  , 

initial  aircraft  weight 

243 

X1XXIC 

siug-ft; 

initial  roll  inertia 

244 

XIYYIC 

siug-ft; 

initial  pitch  inertia 

245 

XIZZ1C 

siug-ft; 

initial  yaw  Inertia 

246 

XIXZIC 

slug-ft* 

initial  cross-product  Inertia 

247 

WFUELIC 

lb 

Initial  fuel  weight 

248 

WWAT1C 

lb 

initial  water  weight 

249 

WFUEL 

lb 

fuel  weight 

250 

WHAT 

lb 

water  weight 

251 

WAITO 

lb 

initial  empty  weight 

252 

253 

W STORE 

• 

lb 

store  weight 

254 

DXCGO 

ft 

x location  of  mac  leading  edge 

755 

DEC  GO 

ft 

z location  of  aero  data  reference  chord 

256 

CG 

percent 

aircraft  center  of  gravity  WRT  mac 

257 

0ZFA(1) 

ft 

nose  gear  z location 

258 

DZBA (2) 

ft 

main  gear  z station 

259 

DZBA (3) 

ft 

right  wing  gear  z station 

260 

DZPA (4) 

ft 

left  wing  gear  z station 

261 

DZPA(5) 

ft 

pilot  z position 

262 

DZPA (6) 

ft 

tall  z position 

263 

DZPA(7) 

ft 

ram  drag  z position 

264 

DZPA (8) 

ft 

front  nozzle  z position 

265 

DZPA  (9) 

ft 

rear  nozzle  z position 

266 

DZPA  (10) 

ft 

front  nozzle  pltc'..  Jet  z position 

267 

DZBA (11) 

ft 

rear  pitch  jet  z position 

268 

DZPA  (12) 

ft 

yaw  jet  z position 

269 

DZBA (13) 

ft 

right  wing  Jet  z position 

270 

DZPA  (14) 

ft 

left  wing  Jet  z position 

E-8 

NADC-77024-30 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

271 

DZPA  (15) 

£c 

eg-  eg  reference  z position 

272 

HDECK(l) 

ft 

deck  height  beneath  nose  gear 

273 

HDECK(2) 

ft 

deck  height  beneath  main  gear 

274 

HDECK(3) 

ft 

deck  height  beneath  right  wing  gear 

275 

HDECK(4) 

ft 

deck  height  beneath  left  wing  gear 

276 

277 

278 

HDECK(5) 

m 

ft 

deck  height  beneath  tail 

279 

X1G(1) 

ft 

inertial  x location  of  nose  gear 

280 

XIC(2) 

ft 

Inertial  x location  of  main  gear 

281 

nc(3) 

ft 

282 

XIG(4) 

ft 

283 

XIG(5) 

ft 

284 

XIG (6) 

ft 

285 

YIG(l) 

ft 

inertial  y position  of  landing  gear 

286 

Y1G(2) 

ft 

287 

YIG(3) 

ft 

288 

YIG  (4) 

ft 

289 

YIG(5) 

- 

290 

YIG (6) 

as 

291 

HZG(l) 

ft 

altitude  of  nose  gear  above  sea  lev< 

292 

HIG(2) 

ft 

altitude  of  main  gear 

293 

HIG(3) 

ft 

altitude  of  right  wing  gear 

294 

HIG  (4) 

ft 

altitude  of  left  wing  gear 

295 

HIG(5) 

ft 

- 

296 

297 

298 

299 

300 

301 

302 

HIG (6) 

m 

m 

m 

ft 

303 

TIME 

SOC 

run  time 

304 

RTIME 

sec 

maximum  run  time 

305-331 

m 

- 

m 

332 

TR 

m 

total  temperature  ratio 

333 

PR 

m 

total  pressure  ratio 

334 

m 

m 

m 

335 

DTIMl 

ae  c 

print  time  increment 

336 

TI 

MC 

print  time  Interval  switch  point 

337-357 

- 

m 

- 

358 

D2R 

rad /deg 

converts  radians  to  degrees 

359 

R2D 

deg/rad 

converts  degrees  to  radians 

360-363 

- 

m 

_ 

364 

RHOZ 

■lug/ft3 

reference  air  density 

365 

HRHOZ 

ft 

reference  altitude 
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A Comnon  (Cont'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

366 

IAMB 

°k  2 

# ambient  temperature 

367 

PAMB 

lb/ft2 

ambient  pressure 

368 

TTOT 

°k  2 

total  temperature 

369 

PTOT 

lb/ftZ 

total  pressure 

370 

DELAT 

°k 

temperature  variation  from  standard  at 
sea  level 

371 

SQTEMPR 

- 

square  root  of  temperature  ratio 

372-374 

m 

- 

m 

375 

XMCC1 

1/aec 

inertial  coefficient 

376 

XMCC2 

l/sec 

inertial  coefficient 

ill 

XMCC3 

1/sec 

inertial  coefficient 

378 

XMCC4 

l/sec 

inertial  coefficient 

379 

XMCC5 

l/sec 

Inertial  coefficient 

380 

XMCC6 

l/sec 

inertial  coefficient 

381 

XMCC7 

l/sec 

inertial  coefficient 

382 

EXMX 

ft -lb-sec 

rotor  angular  momentum 

383 

EXMY 

ft -lb-sec 

rotor  angular  momentum 

384 

EXMZ 

ft -lb-sec 

rotor  angular  momentum 

385-390 

• 

- 

391 

STATE (1) 

trim  state  variable 

392 

STATE (2) 

trim  state  variable 

393 

STATE (3) 

trim  state  variable 

394 

STATE (4) 

trim  state  variable 

395 

STATE (5) 

trim  state  variable 

396 

STATE (6) 

trim  state  variable 

397 

C0NT(1) 

trim  control  variable 

398 

C0NT(2) 

trim  control  variable 

399 

C0NT(3) 

trim  control  variable 

400 

C0NT(4) 

trim  control  variable 

401 

C0NT(5) 

trim  control  variable 

402 

CONT(6) 

trim  control  variable 

403-405 

- 

. 

406 

UBIC 

ft /sec 

trim  u velocity 

407 

VB1C 

ft/sec 

trim  v velocity 

408 

WBIC 

ft/see 

trim  v velocity 

409-412 

as 

m 

m 

413 

UBO 

ft/sec2 

rate  of  change  of  UB 

414 

VBD 

ft /sec2 

rate  of  change  of  VB 

415 

WBD 

ft/sec2 

rate  of  change  of  WB 

416 

VTVN 

ft/sec 

total  north  wind 

417 

VTWE 

ft/sec 

total  east  wind 

418 

VTWD 

ft/sec 

total  vertical  wind 

419 

VNTURB 

ft/sec 

north  component  of  turbulence 

420 

VETURB 

ft/sec 

east  component  of  turbulence 

421 

VDTURB 

ft/sec 

vertical  turbulence 

422-432 

_ 

m 

m 

t 
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A Common  (Cont'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

433 

VDKN(l) 

ft/sec 

deck  north  velocity  at  nose  gear  location 

434 

VDKN(l) 

ft/sec 

deck  north  velocity  at  main  gear 

435 

VDKN(l) 

ft/sec 

deck  north  velocity  at  right  wing  gear 

436 

VDKN(l) 

ft/sec 

deck  north  velocity  at  left  wing  gear 

437 

- 

- 

438 

- 

- 

439 

m 

- 

• 

440 

VDKE(l) 

ft/ see 

deck  east  velocity  at  nose  gear  location 

441 

VDKE (2) 

ft /sec 

deck  east  velocity  at  main  gear 

442 

VDKE(3) 

ft /sec 

deck  east  velocity  at  right  wing  gear 

443 

VDKE (4) 

ft/SCC 

deck  east  velocity  at  left  wing  gear 

444 

VDKE (5) 

- 

- 

445 

446 

447 

• 

HDTDKE(l) 

ft /sec 

deck  vertical  velocity  at  eg 

448 

HDTDKE (2) 

ft/sec 

deck  vertical  velocity  at  nose  gear 

449 

HDTDKE(3) 

ft/sec 

deck  vertical  velocity  at  main  gear 

450 

HDTDKE (4) 

ft/sec 

deck  vertical  velocity  at  right  wing  gear 

451 

HDTDKE (5) 

ft/sec 

deck  vertical  velocity  at  left  wing  gear 

452-453 

m 

- 

- 

454 

VR 

ft/aee 

relative  aircraft  deck  velocity 

455 

FGXM 

lb 

maximum  braking  force 

456-500 

- 

- 

- 

1 


A 
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! 


B Common 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

1 

STAB 

deg 

stabilizer  deflection 

2 

AIL 

deg 

aileron  deflection 

3 

A 

RUD 

deg 

rudder  deflection 

5 

STAB1 

deg 

pilot  comnanded  stabilizer 

6 

PSAS 

deg 

pitch  SAS  coonand 

7 

RLONSTK 

In 

longitudinal  stick 

8 

RLNSTRO 

in 

trim  longitudinal  stick 

9 

RLATSTK 

in 

lateral  stick 

10 

RLTSTKO 

in 

trim  lateral  stick 

11 

RUDPED 

in 

rudder  pedal 

12 

YSAS 

deg 

yaw  SAS  position 

13 

RSAS 

deg 

roll  SAS  command 

14 

THROT 

deg 

throttle  position 

15 

THROTIC 

deg 

trim  throttle 

16 

THTNC 

deg 

engine  nozzle  angle  coonand 

17 

THTN 

deg 

engine  nozzle  angle 

18 

THTNIC 

deg 

trim  nozzle  angle 

19 

RN1 

percent 

engine  RPM 

20 

TOUT 

lb 

engine  gross  thrust 

21 

RPEDO 

in 

trim  rudder  pedal 

22 

THRTMN 

- 

minimum  trim  throttle 

23 

THRTMX 

- 

maximum  trim  throttle 

24 

THTMN 

deg 

minimum  trim  attitude 

25 

THTMX 

deg 

maximum  trim  attitude 

26 

PHIMN 

deg 

minimum  trim  bank  angle 

27 

PHIMX 

deg 

maximum  trim  bank  angle 

28 

PEDMN 

in 

minimum  trim  pedal 

29 

PEDKX 

in 

maximum  trim  pedal 

30 

VS 

£t/sec 

ship  speed 

31-32 

- 

- 

m 

33 

THTNMN 

deg 

minimum  trim  nozzle  angle 

34 

THTNMX 

deg 

maximum  trim  nozzle  angle 

35 

VNWBIC 

ft/tec 

north  component  of  wind 

36 

VEWBIC 

ft /sec 

east  component  of  wind 

37 

BETAIC 

deg 

trim  sideslip 

38 

STKMIN 

in 

minimum  trim  longitudinal  stick 

39 

STXMAX 

in 

maximum  trim  longitudinal  stick 

40 

RLSMIN 

in 

minimum  lateral  trim  stick 

41 

RLSMAX 

in 

maximum  lateral  stick 

42 

ALTAIC 

deg 

trim  angle  of  attack 

43 

- 

• 

• 

44 

TFPJ 

lb 

front  pitch  jet  thrust 

45 

TRPJ 

lb 

rear  pitch  jet  thrust 

46 

TYAWJ 

lb 

yaw  jet  thrust 

47 

TRRJ 

lb 

right  roll  jet  thrust 
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B Coonon  (Coat'd) 


NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

48 

TLBJ 

lb 

laft  roll  Jet  thrust 

49 

TFPJ1 

lb 

maximum  front  pitch  jat  thrust 

50 

TRPJ1 

lb 

rasr  pitch  Jet  raferanca  thrust 

51 

TRJ1 

lb 

roll  jat  reference  thrust 

52 

TYAWJ1 

lb 

yaw  jat  reference  thrust 

53 

WWDOTl 

lb/sec 

engine  water  flow  rate 

54 

m 

- 

- 

55 

- 

- 

m m 

56 

TAUENG 

sac 

engine  time  constant 

57 

RORAG 

lb 

ram  dreg 

58 

TFN 

lb 

front  nozzle  gross  thrust 

59 

TRN 

lb 

rear  nozzle  gross  thrust 

60 

VJRCS 

ft/sec 

RCS  jet  velocity 

61 

DGE 

- 

T.  thrust  loss  due  to  suckdown 

62 

ALT1 

ft 

ground  effect  altitude  limit 

63 

GEF1 

- 

suckdown  coefficient 

64 

GEF2 

l/*t 

suckdown  coefficient 

65 

ALTGE 

ft 

suckdown  coefficient 

66 

FCR 

lb/sec/l 

fuel  consumption  rate 

67 

ALRJ 

in* 

left  roll  jet  area 

68 

AFPJ 

in* 

front  pitch  jet  area 

69 

ARPJ 

in? 

rear  pitch  Jet  area 

70 

ARRJ 

inf 

right  roll  jet  area 

71 

ATAUJ 

in* 

yaw  jet  area 

72 

CSPlAYF 

- 

cosine  of  front  nozzle  splay  angle 

73 

CSPLAYR 

- 

cosine  of  rear  nozzle  splay  angle 

74 

CRJ 

- 

cosine  of  roll  jet  angle 

75 

CFPJA' 

- 

cosine  of  front  pitch  jet  angle 

76 

CRPJA 

- 

cosine  of  rear  pitch  jet  angle 

77 

SFPJA 

m 

sine  of  front  pitch  jet  angle 

78 

SRPJA 

m 

sine  of  rear  pitch  jet  angle 

79 

SRJ 

- 

sine  roll  Jet  angle 

80 

RLAM1 

rad 

component  of  deck  tilt  along  aircraft 

x axis 

81 

RLAM2 

rad 

component  of  deck  tilt  along  aircraft 

y axis 

82 

PHIS 

rad 

ship  roll  angle 

83 

THETS 

rad 

ship  pitch  angle 

84 

PSIS 

red 

ship  yaw  angle 

85 

THETSD 

rad /sec 

ship  pitch  rate 

86 

PHISb 

red /sec 

ship  roll  rate 

87 

PSISD 

red /sec 

ship  yaw  rate 

88 

HEAVE 

ft 

ship  heave  at  eg 

89 

HEAVED 

ft/sec 

ship  heave  velocity  at  eg 

90 

SURGE 

ft 

ship  fore-aft  motion 

91 

SURGED 

ft/sec 

ship  fore-aft  transient  velocity 

I 

i 
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NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

92 

SWAY 

ft 

ship  transient  lateral  motion 

93 

SWA  YD 

ft/sec 

ship  lateral  velocity 

94 

XIS 

ft 

aft  deck  limit 

95 

X2S 

ft 

forward  deck  limit 

96 

YiS 

ft 

port  deck  limit 

97 

Y2S 

ft 

starboard  deck  limit 

98 

X3S 

ft 

bow  location 

99 

H3S 

ft 

superstructure  height 

100 

HIS 

ft 

deck  mean  height 

101 

XTD 

ft 

longitudinal  ideal  touchdown  point 

102 

YTD 

ft 

lateral  ideal  touchdown  point 

103 

HIPS 

ft 

ship  roll/pltch  height 

104 

HMAG 

ft 

ship  heave  magnitude 

105 

PHIROL 

rad 

phase  of  ship  roll 

106 

PHIHV 

rad 

phase  of  ship  roll 

107 

OMEGH 

rad/aac 

frequency  of  heave  motion 

108 

OMEGR 

rad/aec 

frequency  of  ship  roll 

109 

ROLLM 

rad 

magnitude  of  ship  roll 

110 

PITCHM 

rad 

ship  pitch  magnitude 

111 

OMEGP 

rad /sac 

ship  pitch  frequency 

112 

PHIP 

rad 

ship  pitch  phase 

113 

YAWM 

rad 

ship  yaw  amgnltude 

114 

OMEGY 

rad/sac 

frequency  of  ship  yaw 

115 

PHIY 

rad 

phase  of  ship  yaw 

116 

SURGM 

ft 

magnitude  of  ship  surge 

117 

OMECSRC 

rad/aec 

frequency  of  ship  surge 

118 

PHISRG 

rad 

phase  of  ship  surge 

119 

SWAYM 

ft 

maximum  ship  sway 

120 

OMEGSWY 

rad/aac 

frequency  of  ship  sway 

121 

PHISWY 

rad 

phase  of  ship  roll 

122 

VJR 

• 

jet  nozzle  velocity  ratio 

123 

CDQ 

1/rad 

drag  coefficient  due  to  pitch  rate 

124 

C LA  DOT 

1/rad 

lift  coefficient  due  to  rate  of  change 
of  angle  of  attack 

125 

CLP 

1/rad 

roll  moment  coefficient  due  to  roll  rate 

126 

CMQ 

1/rad 

pitching  moment  coefficient  due  to  pitch 
rate 

127 

CYDR 

1/deg 

sldaforce  coefficient  due  to  rudder 

128 

CYR 

l/rad 

sldeforce  coefficient  due  to  yaw  rate 

129 

CLDA 

i/dag 

roll  moment  coefficient  due  to  aileron 

130 

CLQ 

l/rad 

lift  coefficient  due  to  pitch  rate 

131 

CMADT 

l/rad 

pitching  moownt  coefficient  due  to  rate 
of  change  of  alfa 

132 

CNDR 

1/deg 

yawing  moment  coefficient  due  to  rudder 

133 

CNR 

l/rad 

yaw  moment  coefficient  due  to  yaw  rate 

134 

CYDA 

1/deg 

sldeforce  coefficient  due  to  aileron 
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NUMBER  NAME  COMPUTED  DEFINITION 

UNITS 


135 

CYP 

1/rad 

1 

136-139 

m 

- 

140 

HE 

ft 

141 

XE 

ft 

142 

YE 

ft 

143 

ALTC0M 

ft 

144 

ALTDC0M 

ft/sec 

145 

YCOM 

ft 

146 

XCOM 

ft 

147 

THETCOM 

deg 

148 

PHICOM 

deg 

149 

VXCOH 

ft/sec 

150 

PSICOM 

deg 

151 

CMSTR1 

m 

152 

CLSTR3 

- 

153 

UGST 

(ft/se£ 

154 

VGST 

St/seS 

155 

WGST 

(ft/sej* 

156 

XFRZ 

ft 

157 

SWBSW 

<• 

158 

SUBSW 

- 

159 

- 

. 

160 

RKQ 

deg/rad/sec 

161 

TLEADP 

sec 

162 

PSAS1 

deg/sec 

164 

«■ 

- 

165 

RBWSHI 

deg/sec 

166 

RBWSH 

deg 

167 

RKDRR3 

deg/rad/sec 

168 

TLA CRB 

sec 

169 

RKDRAY 

deg/ft/sec 

170 

TLEADAY 

sec 

171 

TLAGAY 

sec 

172 

AYFILTI 

deg 

173 

AYFILT 

deg 

174 

YSAS2 

deg 

175 

R INC NT 

deg 

176 

RKDRDA 

deg/deg 

177 

YSAS1 

deg 

178 

YSASLIM 

deg 

179 

RPBDA 

deg/red /sec 

180 

TLEADDA 

sec 

181 

TLA  GCA 

sec 

sideforce  coefficient  due  to  roll  rete 

m 

height  of  lending  geer  above  touchdown 
point 

x distance  from  aircraft  to  touchdown 
point 

y distance  fro*  eircraft  to  touchdown 
point 

coammaded  altitude 
counded  climb  rate 
commanded  lateral  position 
commanded  x position 
pitch  command 
bank  command 
commanded  elrspeed 
heading  command 
store  pitch  coefficient 
store  lift  increment 
rms  u gust 
mean  square  v gust 
Man  square  w gust 
burble  freese  range 
w burble  scale  factor 
u burble  scale  factor 

m 

SAS  pitch  rate  gain 

pitch  SAS  lead  tiM  constant 

pitch  SAS  feedback  term 

yaw  SAS  coefficient 

output  of  yaw  rate  washout  filter 

yaw  rate  to  rudder  gain 

yaw  rate  lag  constant 

yaw  SAS  gain 

yaw  SAS  tiM  constant 

yaw  SAS  tiM  constant 

lateral  acceleration  filter  term 

laterel  acceleration  filter  output 

lateral  SAS  output 

rudder  coemand  due  to  aileron 

rudder  Interconnect  gain 

SAS  input  to  rudder 

SAS  rudder  limit 

roll  SAS  gain 

roll  SAS  time  constant 

roll  SAS  tiM  constant 


I 
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NUMBER 

NAME 

COMPUTED 

DEFINITION 

UNITS 

182 

PBWSH 

deg 

output  of  roll  rate  washout 

183 

FWSH1 

deg 

roll  SAS  tern 

184 

PSASLIM 

deg 

pitch  SAS  Halt 

185 

AILC 

deg 

aileron  eoaaand 

186 

TAUACDA 

eec 

aileron  time  constant 

187 

TAUACHS 

see 

elevator  time  constant 

188 

RUD2 

deg 

total  RCS  yaw  cownd 

189 

XTDI 

ft 

inertial  x location  of  touchdown  point 

190 

YTDI 

ft 

y location  of  touchdown  point 

191 

TAUALPH 

•ec 

pilot  aodel  tine  constant 

192-200 

m 

- 

m 

NADC-77024-30 


IB  Com 


HUMBER 

NAME 

DEFINITION 

I 

IHOV 

hover  configuration  flag 

2 

ICON 

conventional  flight  flag 

3 

ILAND 

deck  landing  switch 

4 

I ZERO 

statistical  array  zero  flag 

5 

IHNDOFF 

hands  off  takeoff  switch 

6 

I TRANS 

transition  flight  flag 

7 

ISWWAT 

water  injection  switch 

8 

IFUEL 

fuel  exhaustion  flag 

9 

I CRASH 

crash  flag 

10 

• 

m 

11 

ICOPY 

statistics  print  control 

12 

ISET 

brake  application  switch 

13 

m 

m 

14 

ITD 

touchdown  flag 

15 

IDA 

deck  edge  crossing  flag 

16 

I ONCE 

turbulence  sequence  control 

17 

IHOLO 

altitude  hold  switch 

18 

IPITCH 

ship  pitch  induced  wind  switch 

19 

IHIT 

ground  tria  flag 

20 

IWIND 

turbulence  switch 

21 

ILTURB 

turbulence  switch 

22 

NCHK 

control  input  selector 

23 

MCHK 

input  type  selector 

24 

IBFRZ 

burble  freeze  control 

25 

ILBURB 

burble  control  switch 

26 

IPDAMP 

roll  daaper  switch 

27 

IQDAMP 

pitch  dasq>er  switch 

28 

IRDAMP 

yaw  dasher  switch 

29 

IBRAK 

brake  application  switch 

30 

ITASK 

control  task  switch 

31 

IGRAD 

tria  gradient  evaluation  switch 

32-35 

• 

• 

36 

NCNT 

calcostp  plot  point  count 

37 

IST0R2 

outboard  store  flag 

39 

m 

m 

40 

I THIS 

time  response  print  switch 

41 

IUPLOT 

calcoap  plot  switch 

42 

ISXAT 

statistics  printout  switch 

43-44 

m 

- 

45 

IPITCH 

ship  pitch  Induced  wind 

46-48 

49 

J2 

tria  iteration  limit 

50 

JLAND 

landing  switch 

S? 

jr- 

h v r r «■'<■«  ,_u»'  >.i 

S ***  > T i n 
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NUMBER 

NAME 

DEFINITION 

1 

IMODE 

mode  switch 

2-5 

- 

- 

6 

IFLAT 

flat  earth  switch 

7 

IFFCI 

constant  position  switch 

8-9 

m 

- 

10 

ITOUCH(l) 

nose  gear  contact  flag 

11 

IT0UCH(2) 

main  gear  contact  flag 

12 

IT0VCH(3) 

right  wing  gear  contact  flag 

13 

IT0UCH(4) 

left  wing  gear  contact  flag 

14 

IT0UCHC5) 

- 

15 

IOVDK 

over  deck  switch 

16 

I2DOF 

2 degree  of  freedom  pitch  following  mode 

17-20 

• 

m 

21 

IEVAL 

trim  gradient  evaluation  flag 

22 

- 

m 

23 

ITPROG 

trim  switch 

24-60 

• 

- 

61 

1DT1 

first  loop  time  increment  milli-sec 

62 

IDT2 

second  loop  time  increment  milli-sec 

63 

IDT  3 

third  loop  time  increment  milli-sec 

64 

ICC 

trim  altitude  flag 

65 

ID 

trim  flag 

66-89 

• 

- 

90-101 

ICHNBF (I , J) 

printout  title  number 

102 

ITRIM 

trim  switch 

103 

ITRMP 

past  value  of  trim  switch 

104 

IGEAR 

landing  gear  switch 

105 

NRUN 

number  of  runs 

106-109 

as 

- 

110 

INDEX! 

trim  mode  switch 

111 

ITRMCM 

trim  conuand  switch 

112-113 

as 

• 

114 

IMACH 

airspeed  trim  switch 

115-117 

- 

m 

118 

J1 

trim  Iteration  count 

119-123 

- 

m 

124 

ICPRNT 

initial  condition  print  switch 

125-140 

- 

- 

141 

ICOND 

constant  density  flag 

142-166 

- 

- 

167 

IM 

trim  state  counter 

168-178 

• 

• 

179 

IREVAL 

gradient  flag 

180 

NUSED 

loop  3/loop  2 frame  time 

181-183 

- 

- 

184 

IEULR 

trim  velocity  flag 

165 

IETURB 

turbulence  coordinate  flag 

M'S 

rxn  p(r 

clr 
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l 


NAME 


186 

187 

188-198 

199 

200 


'EM  - 

IS'^T 

T ^ -j  i-  < 


ITOMTR 

N2 


L V 


L & 


Pr 


?« 


K-i 


T -TL  n >r 

*4 


J 


w/ 


<2 


Nl  ^ 


DEFINITION 


alfa,  beta  rate  £lag 

m 

run  counter 

^ j,  ( p i » 


5 h . P 


v»  p 


1) 


TT  i __ 


P' 


i? 


luT 


r7 
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NUMBER 

NAME 

COMPUTED 

UNITS 

DEFINITION 

1 

FAC 

• 

plot  scale  factor 

2-17 

- 

- 

- 

18 

FREQCK 

rad /sec 

sinusoidal  input  frequency 

19 

TO 

sec 

input  switch  time 

20 

T1 

sec 

input  switch  time 

21 

T2 

sec 

input  switch  time 

22 

RMAG 

- 

input  magnitude 

23 

DTIM2 

sec 

printout  time  Interval 

24-29 

- 

m 

30-35 

GA(I) 

ft /sec 

turbulence  scale 

36 

VER11 

ft 

throttle  Integral  feedback  limit 

37 

ALT1 

ft 

control  switch  altitude 

38 

RK1V 

deg/ft/sec 

throttle  gain 

39 

RK2V 

deg/ft 

throttle  gain 

40 

m 

• 

• 

41 

RKRUD1 

in  /red /sec 

yaw  rate  to  rudder  gain 

42 

RKRUD2 

ln/rsd 

sideslip  to  rudder  gain 

43 

ALT  2 

ft  9 

switch  altitude 

44 

RKTHT1 

rad/ft/sec2 

pitch  command  gain 

45 

RKALPH 

rad /rad 

angle  of  attack  to  pitch  command  gain 

46 

THET1 

rad 

minimum  pitch  attitude  contend 

47 

ALT 3 

ft 

altitude  command 

48 

RKALTO 

l/sec 

altitude  race  coaaaand  gain 

49 

THETCO 

rad 

pitch  attitude  command 

50 

RKTHT2 

rad/ft 

pitch  command  gain 

51 

RKTHT3 

rad/ft/sec 

pitch  command  gain 

52 

RKTHT4 

rad/ft /sec 

pitch  command  gain 

53 

RKYE 

rad/ft 

roll  contend  gain 

54 

RKVE 

rad  /ft  /sec 

roll  command  gain 

55 

RKPSI 

rad /rad 

roll  coonand  gain 

56 

RKPHILT 

ln/rad 

lateral  stick  gain 

57 

RJCPLT 

in/rad/sec 

lateral  stick  gain 

58 

RJCTHLN 

in/rad 

longitudinal  stick  gain 

59 

RKQLN 

in/rad/sec 

longitudinal  stick  gain 

60 

RKNOZLN 

in/deg 

longitudinal  stick/nozzle  angle  gain 

61 

VRW1 

ft/sec 

switching  speed 

62 

ALT4 

ft 

switching  altitude 

63 

THTNC1 

deg 

nozzle  angle  coonand 

64 

XCG1 

ft 

switching  range 

65 

VRW2 

ft /sec 

switching  speed 

66 

VRW3 

ft/sec 

switching  speed 

67 

VRW4 

ft/sec 

switching  speed 

68 

ALT5 

ft 

switching  altitude 

69 

RKTHT5 

rad/ft 

pitch  command  gain 

70 

RKVY1 

es 

bank  eommnd  gain 

71 

RKVX1 

rad/ft/sac 

pitch  command  gain 
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NUMBER  NAME  COMPUTED  DEFINITION 

UNITS 


72 

RKVY2 

- 

73 

RKVX2 

rad/ft/sec 

74 

RKYPHI 

rad/ft 

75 

RKPHIVY 

rad/ft/sec 

76 

RLNTHT2 

in/rad 

77 

RLNQB2 

ln/rad/sec 

78 

RLTPHI2 

in/rad 

79 

RLTPB2 

ln/rad/sec 

80 

RFR1 

ln/rad/sec 

81 

RPPSI1 

in/rad 

82 

RTHROT 

deg/ft 

83 

RTHR0T1 

deg/ft /sec 

84 

RTHROT 2 

deg/ft /sec 

85 

ALPTRM1 

deg 

86 

7CC  2 

ft 

87 

TPITCH 

sec 

88 

THET2 

rad 

89 

RPI41AX 

RPM 

90 

THCOR 

- 

91 

RTHROT 3 

deg/ft/sec2 

bank  conns nd  gain 
pitch  command  gain 
bank  coonand  gain 
bank  command  gain 
longitudinal  stick  gain 
longitudinal  stick  gain 
lateral  stick  gain 
lateral  stick  gain 
rudder  gain 
rudder  gain 
throttle  gain 
throttle  gain 
throttle  gain 
reference  angle  of  attack 
switch  range 

pitch  coonand  time  limit 
pitch  command  limit 
maximum  engine  speed 
engine  thrust  correction  factor 
throttle  gain 
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APPENDIX  F 
GUST  CHABACTERISTICS 


4 


Th«  free  «lr  turbulence  eoapoMBt  of  th«  atmospheric  disturbance  model 
used  in  the  VSTOL  simulation  Is  based  on  Appendix  B of  tULSTCC  AR-40. 

This  document  specifies  ehe  power  spectra  for  air  turbulenca  as  follows: 


71.6/Vo3 

<vo7I5o  + l)  <v57IW  + l> 


* 


Aug/uo 


— igoAo3 

WT5o  + l>  <vi7B5  + l) 


(352)  (—2 — + i)  — + i) 

. Vo  Vo/400 Vo/400  

(3vo/400  + l)  (ivo/400  + l)  (Vo/1000  + l)  ^Vo/fooo  + l) 


These  represent  the  frequency  distribution  of  vertical,  horizontal,  end 
lateral  gusts  respectively,  and  Vo  Is  the  aircraft  airspeed. 

The  mean  square  amplitude  represented  by  these  power  spectra  amy  be 
calculated  as 

G2  - lm  •<«><* 


This  Integral  is  tabulated  In  Appendix  IV  of  reference  (f) . The  factor  l|  2*» 
normally  included  in  this  Integral  Is  contained  In  the  gain  of  the  spectral 
transfer  function. 


The  root  mean  square  amplitudes  of  the  spectra  are  sunMtrlsed  below; 


G 

m 

sec 

sec 

guat 

2.3 

.762 

gnat 

2.39 

.728 

gust 

1.50 

.457 
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The  Blau  la cion  model  was  uaad  Co  generate  a rapreaantativa  turbulance 
sequence.  Than  chaaa  decs  ware  fourier  transformed  Co  compute  the  power 
spectrum  of  Che  simulated  turbulence  generated  by  che  digital  algorithms. 

As  shown  in  Figures  24  and  25,  che  general  shape  of  Che  theoretical  and  actual 
distribution  agree  recher  well.  The  comparison  is  complicated  by  che  face 
chat  che  finite  data  sample  length  results  in  a cutoff  of  the  DC  portion 
of  the  signal  and  a rather  Irregular  curve.  Therefore,  only  the  general 
shape  and  frequency  distribution  can  be  compared.  Nevertheless,  it  appears 
that  the  model  should  be  satisfactory  for  simulation  purposes  if  the  magnitude 
is  scaled  properly  to  yield  che  desired  mean  square  amplitude. 

Figure  26  illustrates  the  spectrum  of  the  basic  random  number  generetor 
which  is  Intended  to  approximate  white  noise  with  a constant  spectral  amplitude. 
Although  che  spectrum  is  not  truly  uniform,  it  does  not  show  any  definite 
trends  with  frequency.  Thus, it  mey  be  considered  flat  in  an  average  sense. 
Therefore,  the  model  should  be  adequate  for  simulation  purposes. 
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FI CURE  25.  THEORETICAL  VS.  SIMULATED  LATERAL  GUST  SPECTRUM 
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